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Introduction 


THE RASTER GRAPHICS DISPLAY LIBRARY 


Raster Display Systems 

When you use computer graphics to see complex three-dimensional data, 
your accuracy and productivity increase. Raster display systems show trends 
and patterns much more clearly than volumes of tabulated data because color 
and shading can be used to depict realistic scenes. 

In engineering applications , color and shading may be used not only to 
realistically portray an object, but to present additional information. 
Distorted shapes and color coding of functions include failure criteria, 
stress or strain components, temperature, and pressure. 


A Common Problem of Raster Display Systems 

Many applications lack adequate presentation graphics. You may not have 
a set of software tools that allow you to generate quickly the raster image 
capabilities you need. Or the algorithms you want may be incorporated in 
commercial packages or proprietary codes, or be unavailable outside a 
specialized university environment. What you need is a raster display system 
that allows you to display the graphics you want . 


The Raster Graphics Display Library 

The Raster Graphics Display Library (RGDL) is a high level subroutine 
package that gives you the advanced raster graphics display capabilities you 
need. RGDL uses FORTRAN source code routines to build subroutines modular 
enough to use as stand-alone routines in a black box type of environment. 

With RGDL, you have a set of tools that are easily used, well documented i and 
error tolerant . 


How To Use This Manual 

This documentation is divided into four chapters and three appendices . 

The first chapter contains six examples you should go through if you want to 
l®3tn how to use RGDL in the fastest, most complete way possible. Chapter two 
contains a technical reference section, chapter three a common block reference 
section, and chapter four a reference on include files. 

The first appendix, a link map, contains information from MOVIE. BYU 
software and documentation. MOVIE. BYU is a general purpose computer graphics 
display system that uses RGDL software. 

Appendix B is a section about hierarchical data structures. The third 
appendix contains installation information and our address. 
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If you want more information about each section, go to the next page or 
to the chapter introductions. If you want to make sure the contents on the 
magnetic tape you received are complete, go to page C.l. For installation 
information and our address, see page C.2. 
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CHAPTER SUMMARIES 


Chapter 1 EXAMPLE PROBLEMS 

The display library will be introduced to you using six example 
problems. When you compile and link these examples, you will get an 
understanding for what you can achieve using the library routines. Each 
example builds on the previous problem and gets more complicated from one 
example to the next. 

You won t need to type in the example problems , because they 
are supplied with the software. Hake sure you compile and link 
applications with the proper system flags set. Applications may 

become very large and some systems require special compiler and link 
options . 

Chapter 2 TECHNICAL REFERENCES 

Chapter three contains routines within the display library that 
you will call to produce raster graphics. The routines are in 
alphabetical order, each on a separate page. Each user-callable 
routine is described by function and calling parameters. 

Chapter three does not contain a description of all routines in the 
display library, but rather only those routines that could be called by 
an applications program. 

Chapter 3 COMMON BLOCK REFERENCES 

Chapter four contains a common block reference. The chapter lists 
all common blocks that are used in the display library, and discusses the 
use of each variable within each common block. 

Chapter 4 INCLUDE FILE REFERENCES 


Chapter five contains a reference on the include files that are 
necessary to compile the display library. Each include file and its 
purpose are listed. 

Appendix A LINK MAP 

This appendix contains the link map for MOVIE. BYU version 6. 

MOVIE. BYU is a general purpose computer graphics display system that uses 
RGDL software. It uses the display library in addition to other 
routines , and is an excellent source as an ataxiliary reference . 

The link map is included to show you the amount of code that may 
be necessary to perform a function. The link map will also help if you 
don't have library utilities. 
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Appendix B AN INTRODUCTION TO HIERARCHICAL DATA STRUCTURES 

Appendix B contains a section about creating new groups . TTie 
section will help you understand the hierarchial data structures used in 
RGDL. You are asked to create new groups in Examples Five and Six of 
Chapter One. 

Appendix C SOFTWARE INSTALLATION 

Appendix C contains installation information. It also gives you the 
address and phone number of the people you can contact if you find bugs 
or problems in RGDL software. 
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Chapter 1 
EXAMPLE PROBLEMS 


chapter contains example drivers for the Raster Graphics Subroutine 
Library. The examples call routines described in chapter two, Technical 
References. You will learn how to create applications programs that use the 
graphics library routines. By going through the examples, you will also 
become familiar with many of the system's capabilities. 


Why should you go through the examples? 

Because you will save time and headaches. The examples are not busywork. 
They are six exercises that build on each other to teach you how the Raster 
Graphics Subroutine Library works. 

You should study the examples carefully, then actually compile, link, and 
run them. You won't need to t 3 rpe them in because they are supplied on tape 
with the rest of the software. 

Things you should know 

Make sure you compile and link applications with the correct system flags 
set. The applications may become very large and some systems require special 
compiler and link options. 

All examples are read in a hard-coded geometry file, EXP9.GE0. A common 
data base is used so you can follow along with the example problems through 
more complex operations. Of course, in most cases, you will want to create 
drivers that prompt for the geometry file names to be read into the data base. 

The examples shown do not perform error checking. We strongly suggest 
you include error checking in applications you write. 

About the display device and host computer 

The examples will be most useful to you when they are run on a raster 
display device that allows for screen overlays, such as the Tektronix 4115. 

Because no link maps are shown in the examples, the host computer you use 
should have a library utility. If the host computer does not have a library 
utility, refer to the link map in the appendix to see what routines must be 
linked with the drivers . 

After the first example, all new additions to the next five exercises are 
shown in bold. 


Chapter One EXAMPLE PROBLEMS 


1.1 



o n o 


EXAMPLE 1 


PROGRAM RSPEXl 
C 

C RASTER GRAPHICS SUBROUTINE PACKAGE EXAMPLE 1 

C 

C THIS EXAMPLE PROBLEM WILL READ IN A GEOMETRY FILE AND 

C DISPLAY IT IN LINE DRAWING MODE WITH ALL DEFAULTS 

C 

C 

C THIS CALL IS NEEDED IN ALL PROGRAMS. IT INITIALIZES THE 

C GRAPHICS PACKAGE . 

C 


CALL GRAINT 

C 

C READ IN A MOVIE. BYU GEOMETRY FILE CALLED EXP9.GEO. 

C A FUNCTION OR A DISPLACEMENT FILE. 

C 

CALL READMV('EXP9.GEO' , ' ' , ' 

DISPLAY LINE DRAWING PICTURE 


DO NOT READ IN 


CALL DISALL 

STOP 

END 
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oooo o o no 


EXAMPLE 2 


PROGRAM RSPEX2 
C 

C RASTER GRAPHICS SUBROUTINE PACKAGE EXAMPLE 2 

C 

C THIS EXAMPLE PROBLEM ADDS A USER DEFINED LOOK FROM VECTOR TO 

C EXAMPLE PROBLEM 1 

C 

REAL LOOKAT(3), L00KFR(3) 


THIS SECTION IS NEEDED IN ALL PROGRAMS. IT INITIALIZES THE 
GRAPHICS PACKAGE. 

CALL GRAINT 


READ IN A MOVIE. BYU GEOMETRY FILE CALLED EXP9.GEO. DO NOT READ IN 
A FUNCTION OR A DISPLACEMENT FILE. 


C 

C 

c 

C 


c 

c 

C 

c 

c 

C 

c 

c 

c 

c 


CALL READMV('EXP9. GEO' , ' 

PROMPT FOR LOOK EROM VECTOR. SET THE LOOK AT POINT TO ZERO, AND 
CALL THE ROUTINE TO SET UP THE LOOK AT/FROM TRANSFORMATION. 

WRITE(*,*) 'ENTER LOOK- FROM VECTOR (X,Y,Z)' 
READ(*,*)LOOKFR(1) ,LOOKFR(2) ,LOOKFR(3) 

LOOKAT(l) - 0. 

LOOKAT(2) - 0. 

LOOKAT(3) - 0. 

CALL ATFROM(LOOKAT, LOOKER) 

COULD ALSO DO THE ATFROM CALL BE GOING THROUGH GLBACT, THIS CALL 
WOULD LOOK LIKE: 

CALL GLBACT( 'FRM' .LOOKAT(l) ,LOOKAT(2) ,LOOKAT(3) ,L00KFR(1) . 

& 'LOOKFR(2),LOOKFR(3)) 

GLBACT SHOUU) BE USED IF A USER IS RUNNING ANIMATION, SINCE THIS 
ROUTINE WILL CAPTURE THE LOOK AT/FROM COMMAND AS A MOVEMENT THAT 
NEEDS TO BE ANIMATED. 

DISPLAY LINE DRAWING OF PICTURE 

CALL DISALL 

STOP 

END 
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1.3 



o o o 


EXAMPLE 3 


PROGRAM RSPEX3 


C 

C RASTER GRAPHICS SUBROUTINE PACKAGE EXAMPLE 3 

C 

C THIS EXAMPLE PROBLEM USES THE I/O ROUTINES FOR ATT. 

C PROMPTS AND USER INPUT. ALSO ADDED IS A USER DEFINED 

C ROTATION AND TRANLATION OF PART 1. THE PICTURE IS 

C DISPLAYED IN LINE DRAWING MODE. 

C 

CHARACTER* (73) TEXT 
CHARACTER*80 FORM 
DIMENSION XNUM(40) , VAL0E(6) 

REAL LOOKAT(3) , LOOKFR(3) 

C 

C THIS SECTION IS NEEDED IN ALL PROGRAMS. IT INITIALIZES THE 

C GRAPHICS PACKAGE. 

C 


CALL GRAINT 


C 


READ IN A MOVIE. BYU GEOMETRY FILE CALLED EXP9.GEO. DO NOT READ IN 
A FUNCTION OR A DISPLACEMENT FILE. 


C 

C 

C 

C 

C 

C 

C 

C 

c 

c 


CALL READMV('EXP9.GEO' , ' ') 

PROMPT FOR LOOK FROM VECTOR. SET THE LOOK AT POINT TO ZERO, AND 
CALL THE ROUTINE TO SET UP THE LOOK AT/FROM TRANSFORMATION. 

PERFORM AN INTERNAL READ FOR THE PROMPT. OAT.T. GETXT WITH THE 
PROMPT, WHICH WILL RETURN THE TEXT STRING RESPONSE FROM THE USER - 
TEXT, AND THE NUMBER OF CHARACTERS IN TEXT - NCHAR. NEXT, CALL 
GETNUM WHICH WILL PARSE THE USER TEXT STRING FOR NUMBEEIS. XNUM 
WILL BE AN ARRAY OF NUMBERS, AND K2 IS THE NUMBER OF NUMBEEIS 
FOUND. 

WRITE(FORM, 100) 'ENTER LOOK-FR(»t VECTOR (X,Y,Z)' 

CALL GETXT(TEXT, NCHAR, FORM) 

CALL GETN0M(TEXT,NCHAR,XN0M,K2) 

LOOKAT(l) - 0 
L00KAT(2) - 0 
L00KAT(3) - 0 
IF(K2 .EQ 0) THEN 

WRITE(FORM,100) 'NO LOOK -FROM VECTOR SPECIFIED!' 

CALL PROMPT(FORM) 

ELSE 

LOOKFR(l) - XNDM(l) 

LOOKFR(2) - XNUM(2) 

LOOKFR(3) - XNUM(3) 

CALL ATFROM (LOOKAT,LOOKFR) 

END IF 
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EXAMPLE 3 


PROMPT FOR AND PEEIFORM A ROTATION FOR PART 1 

WRITE (FORM, 100) 'X.Y.Z ROTATION ANGLES (DEGREES) FOR PART 1?' 

CALL GETXT( TEXT, NCHAR, FORM) 

CALL GETNUM( TEXT, NCHAR, XNDM,K2) 

VALDE(l) - XNUM(l) 

VA1UE(2) - XNUM(2) 

VALOE(3) - XNUM(3) 

'1' IS THE PART TO MODIFY. 

4 IS THE FLAG INDICATING ROTATION. 

VALUE IS AN ARRAY OF NUMBERS 
CORRESPONDING TO THE ACTION 
FLAG. 

CALL MODIFY('l' ,4, VALUE) 

PROMPT FOR AMD PEEIFOM A TRANSLATION FOR PART 1. 

WRITE ( FORM , 100) *X,Y,Z TRANSLATION FOR PART 1 
CALL GETXT(TEXT, NCHAR, FORM) 

CALL GETN0M(TEXT,NCHAR,XNUM,K2) 

VALUE(l) - XNDM(l) 

VALUE(2) - XNUM(2) 

VALUE(3) - XNUM(3) 

THE ACTION FLAG 5 IS THE TRANSLATION FLAG 

CALL MODIFY( ' 1 ' , 5 , VALUE) 

DISPLAY LINE DRAWING OF PICTURE 

CALL DISALL 
FORMAT (A) 

STOP 

END 
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EXAMPLE 4 


C 

C 

C 

C 

C 

C 

C 

C 

C 


PROGRAM RSPEX4 

RASTER GRAPHICS SUBROUTINE PACKAGE EXAMPLE 4 

THIS EXAMPLE PROBLEM TAKES EXAMPLE PROBLEM 3, AND DEFINES FOUR 
DIFFERENT VIEW PORTS. THE FIRST VIEW PORT IS DRAWN IN LINE 
DRAWING MODE, THE SECOND VIEW PORT IS DRAWN IN HIDDEN LINE MODE, 
THE THIRD VIEW PORT IS DRAWN IN SHADED IMAGE MODE. THE FOURTH 
VIEW PORT IS DRAWN IN SHADED IMAGE MODE WITH DITHERING. 

CHARACTER*(73) TEXT 
CHARACTER*80 FORM 
DIMENSION XNUM(40),VALUE(6) 

REAL LOOKAT(3), LOOKFR(3) 


THIS SECTION IS NEEDED IN ALL PROGRAMS. IT INITIALIZES THE 
GRAPHICS PACKAGE. 


CALL GRAINT 


READ IN A MOVIE. BYU GEOMETRY FILE CALLED EXP9.GEO. DO NOT READ IN 
A FUNCTION OR A DISPLACEMENT FILE. 


CALL READMV( ' EXP9 .GEO' , ' ' , ' ' ) 


C PROMPT FOR LOOK FROM VECTOR. SET THE LOOK AT POINT TO ZERO, AND 

C CALL THE ROUTINE TO SET UP THE LOOK AT/FROM TRANSFORMATION. 

C PERFORM AND INTERNAL READ FOR THE PROMPT. CALL GETXT WITH THE 

C PROMPT, WHICH WILL RETURN THE TEXT STRING RESPONSE FROM THE USER - 

C TEST, AND THE NUMBER OF CHARACTERS IN TEXT-NCHAR. NEXT, CALL 

C GETNUM WHICH WILL PARSE THE USER TEXT STRING FOR NUMBERS. XNUM 

C WILL BE AN ARRAY OF NUMBERS, AND K2 IS THE NUMBER OF NUMBERS 

C FOUND. 

C 


WRITE (FORM, 100) 'ENTER LOOK-FROM VECTOR (X,Y,Z)' 

CALL GETXT ( TEXT, NCHAR, FORM) 

CALL GETNUM (TEXT, NCHAR, XNUM, K2) 

LOOKAT(l) - 0. 

LOOKAT(2) - 0. 

LOOKAT(3) - 0. 

IF(K2 .EQ. 0) THEN 

WRITE (FORM, 100) 'NO LOOK-FROM VECTOR SPECIFIED!' 
CALL PROMPT (FORM) 

ELSE 

LOOKFR(l) - XNUM(l) 

LOOKFR(2) - XNUM(2) 

LOOKFR(3) - XNUM(3) 

CALL ATFROM(LOOKAT,LOOKFR) 

END IF 
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EXAMPLE 4 


PROMPT FOR AND PERFORM A ROTATION FOR PART 1 

WRITE (FORM, 100) 'X,Y,Z ROTATION ANGLES (DEGREES) FOR PART 1?' 
CALL GETXT ( TEXT , NCHAR , FORM) 

CALL GETNUM( TEXT, NCHAR, XNUM.K2) 

VALUE(l) - XNUM(l) 

VALUE(2) - XNUM(2) 

VALUE(3) - XNUM(3) 

CALL M0DIFY( ' 1 ' , 4 , VALUE) 

PROMPT FOR AND PERFORM A TRANSLATE FOR PART 1 

WRITE (FORM, 100) 'X,Y,Z TRANSLATION FOR PART 1?' 

CALL GETXT ( TEXT , NCHAR , FORM) 

CALL GETNUM( TEXT, NCHAR, XNUM.K2) 

VALUE(l) - XNUM(l) 

VALUE(2) - XNUM(2) 

VALUE(3) - XNUM(3) 

CALL MODIFY( ' 1 ' , 5 .VALUE) 

SET THE VIEWPORT TO THE UPPER LEFT QUARTER OF THE SCREEN 
CALL SETPRT(0. , .5,.75) 

DISPLAY LINE DRAWING OF PICTURE 
CALL DISALL 

SET THE VIEWPORT TO THE UPPER RIGHT QUARTER OF THE SCREEN 
CALL SETPRT(.5,1. ,.75) 

SET THE HIDDEN LINE FLAG ON AND DISPLAY THE PICTURE 

CALL SETFLGC 'HIDDEN' , .TRUE.) 

CALL DISALL 

SET THE VIEWPORT TO THE LOWER LEFT QUARTER OF THE SCREEN 
CALL SETPRT(0., .5,.25) 

SET THE SHADED IMAGE FLAG AND DISPLAY THE PICTURE 

CALL SETFLG(' SHADED '..TRUE.) 

CALL DISALL 

SET THE VIEWPORT TO THE LOWER RIGHT QUARTER OF THE SCREEN 
CALL SETPRT(.5,1. ,.25) 

SET THE DITHERING FLAG ON, AND DISPLAY THE RASTER IMAGE OVER 
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EXAMPLE 4 
C 

CALL SETFLG( 'DITHER' , .TRUE.) 

CALL DISALL 
C 

100 FORMAT (A) 

STOP 

END 
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noon 


EXAMPLE 5 


PROGRAM RSPEX5 


C 

C RASTER GRAPHICS SUBROUTINE PACKAGE EXAMPLE 5 

C 

C THIS EXAMPLE PROBLEM TAKES EXAMPLE PROBLEM 4 AND MODIFIES IT 

C BY CREATING A NEW GROUP. THE COLOR AND SHADING OF PART 1 IS SET, 

C AND THE COLOR OF THE HIGHER GROUP IS SET TO GREEN. THE UPPER 

C RIGHT VIEWPORT IS SHOWN IN FOUR VIEW MODE 

C 

CHARACTER* (73) TEXT 
CHARACTER*80 FORM 
DIMENSION XNUM(40),VALUE(6) 

REAL LOOKAT(3), L00KFR(3) 


THIS SECTION IS NEEDED IN ALL PROGRAMS. IT INITIALIZES THE 
GRAPHICS PACKAGE. 


C 


CALL GRAINT 



C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 



C 


READ IN A MOVIE. BYU GEOMETRY FILE CALLED EXP9.GEO. DO NOT READ IN 
A FUNCTION OR A DISPLACEMENT FILE. 

CALL READMV('EXP9.GEO' , ' ') 

PROMPT FOR LOOK FROM VECTOR. SET THE LOOK AT POINT TO ZERO, AND 
CALL THE ROUTINE TO SET UP THE LOOK AT/FROM TRANSFORMATION. ' 
PERFORM AND INTERNAL READ FOR THE PROMPT. CALL GETXT WITH THE 
PROMPT, WHICH WILL RETURN THE TEXT STRING RESPONSE FROM THE USER - 
TEST, AND THE NUMBER OF CHARACTERS IN TEXT - NCHAR. NEXT, CALL 
GETNUM WHICH WILL PARSE THE USER TEXT STRING FOR NUMBERS. XNUM 
WILL BE AN ARRAY OF NUMBERS, AND K2 IS THE NUMBER OF NUMBERS 
FOUND. 

WRITE (FORM, 100) 'ENTER LOOK-FROM VECTOR (X,Y,Z)' 

CALL GETXT (TEXT , NCHAR , FORM) 

CALL GETNUM (TEXT, NCHAR, XNUM, K2) 

LOOKAT(l) - 0. 

L00KAT(2) - 0. 

LOOKAT(3) - 0. 

IF(K2 .EQ. 0) THEN 

WRITE (FORM, 100) 'NO LOOK-FROM VECTOR SPECIFIED!' 

CALL PROMPT (FORM) 

ELSE 

LOOKFR(l) - XNUM(l) 

LOOKFR(2) - XNUM(2) 

LOOKFR(3) - XNUM(3) 

CALL ATFROM(LOOKAT,LOOKFR) 

END IF 
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EXAMPLE 5 


PROMPT FOR AND PERFORM A ROTATION FOR PART 1 

WRITE (FORM, 100) 'X,Y,Z ROTATION ANGLES (DEGREES) FOR PART 1?' 

CALL GETXT ( TEXT , NCHAR , FORM) 

CALL GETXT (TEXT, NCHAR, XNUM.K2) 

VALUE(l) - XNUM(l) 

VALUE(2) - XNUM(2) 

VALUE(3) - XNUM(3) 

CALL MODIFY('l' ,4, VALUE) 

PROMPT FOR AND PERFORM A TRANSLATE FOR PART 1 

WRITE(FORM,100) 'X,Y,Z TRANSLATION FOR PART 1?' 

CALL GETXT ( TEXT , NCHAR , FORM) 

CALL GETNUM( TEXT, NCHAR, XNUM,K2) 

VALUE(l) - XNUM(l) 

VALUE(2) - XNUM(2) 

VALUE(3) - XNUM(3) 

CALL MODIFY( ' 1' , 5 .VALUE) 

CREATE A NEW GROUP (SEE "AN INTRODUCTION TO HIERARCHICAL DATA 
STRUCTURES" IN APPENDIX B.) 

CALL DEFINE('TOP GROUP') 

COPY THE GROUP "ROOT" INTO THE NEW GROUP AND ^att. tHE COPY "COPY 
ROOT 1" 

CALL ADDCALC ROOT', 'COPY ROOT 1') 


SET THE COLOR OF THE NEW COPY TO GREEN, AND SET THE COLOR OF PART 
1 (PART 1 IS REALLY COPY 1) TO RED. ALSO SET THE SHADING 
ATTRIBUTE OF COPY 1 TO SMOOTH 

VALDE(l) - 0. 

VALUE(2) - 1. 

VALUE(3) - 0. 

CALL MODIFY('COPY ROOT 1' ,8, VALUE) 

VALUE(l) - 1. 

VALUE(2) - 0. 

CALL MODIFY('l' ,8, VALUE) 

VALUE(l) - 2. 

CALL MODIFY( ' 1 ' , 11 , VALUE) 

SET THE VIEWPORT TO THE UPPER LEFT QUARTER OF THE SCREEN 
CALL SETPRT(0. , .5,. 75) 

DISPLAY LINE DRAWING OF PICTURE 
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EXAMPLE 5 


C 


C 

100 


CALL DISALL 

SET THE VIEWPORT TO THE UPPER RIGHT QUARTER OF THE SCREEN 
CALL SETPRT(.5,1. ,.75) 

SET THE HIDDEN LINE FLAG ON AND DISPLAY THF. PICTURE IN FOUR 
STANDARD VIEWS 

CALL SETFLG ( ' HIDDEN' , . TRUE . ) 

CALL FOURVW 

SET THE VIEWPORT TO THE LOWER LEFT QUARTER OF THE SCREEN 
CALL SETPRT(0. , .5,. 25) 

SET THE SHADED IMAGE FLAG AND DISPLAY THE PICTURE 

CALL S ETFLG ( ' SHADED ' , . TRUE . ) 

CALL DISALL 

SET THE VIEWPORT TO THE LOWER RIGHT QUARTER OF THE SCREEN 
CALL SETPRT(.5,1. ,.25) 

SET THE DITHERING FLAG ON, AND DISPLAY THE RASTER IMAGE OVER 

CALL SETFLG( 'DITHER' , .TRUE) 

CALL DISALL 

FORMAT (A) 

STOP 

END 
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EXAMPLE 6 


PROGRAM RSPEX6 
C 

C RASTER GRAPHICS SUBROUTINE PACKAGE EXAMPLE 6 

C 

C THIS EXAMPLE PROBLEM TAKES EXAMPLE PROBLEM 5 AND MODIFIES IT 

C BY CREATING TWO COPIES OF THE ORIGINAL GEOMETRY FILE. THE USER 

C IS PROMPTED FOR A TRANSLATE OF THE SECOND COPY 

C 

CHARACTER* (73) TEXT 
CHARACTER*80 FORM 
DIMENSION XNUM(40),VALUE(6) 

REAL L00KAT(3), LOOKFOR(3) 


THIS SECTION IS NEEDED IN ALL PROGRAMS. IT INITIALIZES THE 
GRAPHICS PACKAGE. 

CALL GRAINT 


READ IN A MOVIE. BYU GEOMETRY FILE CALLED EXP9.GEO. DO NOT READ IN 
A FUNCTION OR A DISPLACEMENT FILE. 

CALL READMV( ' EXP9 .GEO' , ' ' , ' ' ) 

PROMPT FOR LOOK FROM VECTOR. SET THE LOOK AT POINT TO ZERO, AND 
CALL THE ROUTINE TO SET UP THE LOOK AT/FROM TRANSFORMATION. 

PERFORM AND INTERNAL READ FOR THE PROMPT. CALL GETXT WITH THE 
PROMPT, WHICH WILL RETURN THE TEXT STRING RESPONSE FROM THE USER - 
TEST, AND THE NUMBER OF CHARACTERS IN TEXT - NCHAR. NEXT, CALL 
GETNUM WHICH WILL PARSE THE USER TEXT STRING FOR NUMBERS . XNUM 
WILL BE AN ARRAY OF NUMBERS, AND K2 IS THE NUMBER OF NUMBERS 
FOUND. 

WRITE(FORM,100) 'ENTER LOOK-FROM VECTOR (X,Y,Z)' 

CALL GETXT (TEXT, NCHAR, FORM) 

CALL GETNUM (TEXT, NCHAR, XNUM, K2) 

LOOKAT(l) - 0. 

LOOKAT(2) - 0. 

L00KAT(3) - 0. 

IF(K2 .EQ. 0) THEN 

WRITE (FORM, 100) 'NO LOOK-FROM VECTOR SPECIFIED!' 

CALL PROMPT (FORM) 

ELSE 

LOOKFR(l) - XNUM(l) 

LOOKFR(2) - XNUM(2) 

LOOKFR(3) - XNUM(3) 

CALL ATFROM(LOOKAT, LOOKER) 

END IF 

PROMPT FOR AND PERFORM A ROTATION FOR PART 1 
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EXAMPLE 6 


WRITE (FORM, 100) 'X,Y,Z ROTATION ANGLES (DEGREES) FOR PART 1?' 

CALL GETXT ( TEXT , NCHAR , FORM) 

CALL GETNUM( TEXT, NCHAR, XNUM.K2) 

LOOKAT(l) - (1) - XNUM(l) 

LOOKAT(2) = (2) - XNUM(2) 

LOOKATO) - (3) - XNUM(3) 

CALL MODIFY( ' 1 ' , 4 , VALUE) 

PROMPT FOR AND PERFORM A TRANSLATE FOR PART 1 

WRITE(FORM,100) 'X,Y,Z TRANSLATION FOR PART 1?' 

CALL GETXT ( TEXT , NCHAR , FORM) 

CALL GETNUM( TEXT, NCHAR, XNUM,K2) 

VALUE(l) - XNUM(l) 

VALUE(2) - XNUM(2) 

VALUE(3) - XNUM(3) 

CALL MODIFY('l' ,5, VALUE) 

CREATE A NEW GROUP (SEE "AN INTRODUCTION TO HIERARCHICAL DATA 
STRUCTURES" IN APPENDIX B.) 

CALL DEFINE ('TOP GROUP') 

COPY THE GROUP "ROOT" INTO THE NEW GROUP AND CALL THE COPY "COPY 
ROOT 1" 

CALL ADDCAL( 'ROOT' , 'COPY ROOT 1') 

COPY ANOTHER COPY OF ROOT INTO THE NEW GROUP AND nAT.T. THE COPY 
"COPY ROOT 2" 

CALL ADDCAL(' ROOT', 'COPY ROOT 2') 

PROMPT THE USER FOR A TRANSLATION OF "COPY ROOT 2" 

WRITE (FORM, 100) 'X,Y,Z TRANSLATION FOR COPY ROOT 2?' 

CAUL GETXT(TEXT, NCHAR, FORM) 

CALL GETNUM(TEXT,NCHAR,XNUM,K2) 

VALUE(l) - XNUM(l) 

VALUE(2) - XNUM(2) 

VALUE(3) - XNUM(3) 

CAUL MODIFYC ' COPY ROOT 2 ' , 5 , VALUE) 

C 

C SET THE COLOR OF "COPY ROOT 1" TO GREEN, AND SET THE COLOR OF PART 

C 1(PART 1 IS REALLY COPY 1) TO RED. ALSO SET THE SHADING 

C ATTTRIBUTE OF COPY 1 TO SMOOTH 

C 

VALUE(l) - 0. 

VALUE(2) - 1. 
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EXAMPLE 6 


VALUE(3) - 0, 

CALL M0DIFY('C0PY ROOT 1', 8, VALUE) 

VALUE(l) - 1. 

VALUE(2) - 0. 

CALL M0DIFY( ' 1 ' , 8 .VALUE) 

VALUE(l) - 2. 

CALL MODIFY ('1' ,11, VALUE) 

SET THE VIEWPORT TO THE UPPER LEFT QUARTER OF THE SCREEN 
CALL SETPRT(0. , .5, .75) 

DISPLAY LINE DRAWING OF PICTURE 
CALL DISALL 

SET THE VIEWPORT TO THE UPPER RIGHT QUARTER OF THE SCREEN 
CALL SETPRT(.5,1. , .75) 

SET THE HIDDEN LINE FLAG ON AND DISPLAY THE PICTURE IN FOUR 
STANDARD VIEWS 

CALL SETFLG ( ' HIDDEN ' , . TRUE . ) 

CALL FOURVW 

SET THE VIEWPORT TO THE LOWER LEFT QUARTER OF THE SCREEN 
CALL SETPRT(0. , .5, .25) 

SET THE SHADED IMAGE FLAG AND DISPLAY THE PICTURE 


CALL SETFLG ( ' SHADED ' , . TRUE . ) 

CALL DISALL 

SET THE VIEWPORT TO THE LOWER RIGHT QUARTER OF THE SCREEN 
CALL SETPRT(.5,1. , .25) 

SET THE DITHERING FLAG ON, AND DISPLAY THE RASTER IMAGE OVER 

CALL SETFLG ( ' DITHER' , . TRUE . ) 

CALL DISALL 
C 

100 FORMAT (A) 

STOP 

END 
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Chapter Two 

TECHNICAL REFERENCES 

This chapter contains detailed descriptions of all the user -callable 
subroutines within RGDL. Use the Information to write application programs 
for your needs . 

Tti© routines ere listed in elphebetical order, eecli on e separate page 
The function is listed at the top of each page, together with the name of 
the routine. The function of each routine Is given, as well as parameters, 
common blocks. Include blocks, and other routines that are used In 
conjunction with the given routine. 


It Is unlikely you will use the routines In alphabetical order, so we 
have provided an Index of the routines according to their function on page 
vl, after the table of contents. An alphabetized Index Is also given on 
page 111. The Index divided Into functions will probably be the easiest way 
to find an unknown routine with a known function. 
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ACTGRP 


DECLARATION ; 

FUNCTION: 

PARAMETERS 

in: 

character: 


Subroutine ACTGRP (grunam) 

Sets the active group to an existing group. 

grunam The name of an existing group to be set active, 
grunam* (*) 
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ADDCAL 



DECLARATION : Subroutine ADDCAL (giname, cpynam) 

FUNCTION : Adds a call (item or group) to the active group. 

PARAMETERS 

in: giname Name of group or item to be added to the active 

group . 

cp 3 mam Copy name that giname will be referred to. 

character: giname*(*), cpynam*(*) 

COMMON BLOCKS : /CHFWAS/ 

/CLIMIT/ 

/CMEMRY/ 
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ANFILI 


DECLARATION ! 

FUNCTION ! 

PARAMETERS 
out: 
character: 
SEE ALSO ! 


Entry ANFILI ( inqnam) 

Returns the animation extension. 

An animation file extens ion of ^0#$^ indicates that animation 
is not open. 

inqnam Name of the animation extension. 
inqnam(3) 

ANFILS 
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ANFILS 


DECLARATION : 

FUNCTION : 

PARAMETERS 

in: 

character : 
SEE AT-SO; 


Entry ANFILS (newnam) 

Stores the animation extension. 

f extension of *(3#$* indicates that animation 

is not ope n. Use ANIDRV to open animation. 


newnam Name of the new animation extension. 

newnam(3) 

ANFILI 

ANIDRV 
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ANIDRV 


DECLARATION : Subroutine ANIDRV 

FUNCTION : Drives the animation module. ANIDRV does many basic 

functions like opening and closing the animation module, 
setting up subframes, and setting up spline control. 

All animation int erfacing should be performed through ANIDRV. 

COMMON BLOCKS : /CHFWAS/ 

/DEVI/ 

/CMEMRY/ 
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AROCLR 


DECLARATION : Entry AROCLR 

FDSPJJON : Clears the displacement arrow arrays. 

Call AROCLR once — for each pa rt containing displacement vector 
arrows . 
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ATFROM 


DECLARATION : 

FUNCTION : 

PARAMETERS 

in: 

real: 
COMMON BLOCKS : 
SEE ALSO : 


Subroutine ATFROM (lookat, lookfr) 

Creates the viewing matrix based on the look- from and look- at 
positions . 

Coordinates are in world coordinates . 


lookat Look-at position, 

lookfr Look- from position. 

lookat(3), lookfr(3) 

/VEWSTF/ 

INQLAF 
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AUTOON 


DECLARATION : 
FUNCTION : 
COMMON BLOCKS: 


Subroutine AUTOON 

Turns auto center off. 

/DEVI/ 

/VEWSTF/ 
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BEGANI 


DECLARATION: 

Subroutine 

BEGANI (aninam) 

FUNCTION: 

Starts the animation, opens necessary files, and initializes 
all appropriate variables. 

PARAMETERS 



in: 

aninam 

The three character extension names used for 
animation files. 

character : 

aninam(3) 


COMMON BLOCKS: 

/CHFWAS/ 

/CLIMIT/ 

/CMEMRY/ 

/DEVI/ 
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CAMERA 


DECLARATION : Subroutine CAMERA 

FUNCTION : Acts as the interface to a camera for animation. 

CAMERA gets c alled after each frame is displayed. You can 
— — ^^o^tine fo r anything you wish to do after a frame 

is shown. For exa mple, you may want to interface to a 

computer- controlled camera 
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CENTER 


DECLARATION : Subroutine CENTER 


FtmCTION: Sets up the viewing matrix, if not already specified. Also 

sets up the window and clipping planes to center the model. 

Pie limits of the scene to be displayed must first be set un 
in SE TLIM. Normally, this is done by a call to TRAVRS . 

COMMON BTjOCKS : /DEVI/ 

AEWSTF/ 

/RESOLT/ 


SEE ALSO : SETLIM 

GETLIM 
TRAVRS 
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CHRNUM 


DECLARATION : 

FUNCTION : 


Subroutine CHRNUM (nximber, lenchr, chrint, nchars) 
Converts integer data into an equivalent character string. 


Negative numbers are not allowed. 


PARAMETERS 

in: lenchr 

number 


out: chrint 

nchars 


Maximum length of the string. 

The integer number to be made into a character 
string. 

The character string representation of an integer. 

Maximum number of characters in the string to be 
returned. 


Integer: 
character : 


nchars, lenchr, number 
chrint*(*) 
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CUPLIN 



DECLARATION : 

FUNCTION : 


Subroutine CLPLIN (corbeg, corend, wxmin ,wxmax, wymin, 
wymax, plot) 

Clips lines in x and y. 

All coordinates are eve coordinates . 


PARAMETERS 

in, corbeg X,Y,Z coordinate triplet of beginning point; may be 
modified after clipping. 

corend X,Y,Z ending triplet of line may be modified after 
clipping. 


wxmin Minimum X window coordinate . 
wxmax Maximum X window coordinate, 
wymin Minimum Y window coordinate, 
wymax Maximum Y window coordinate . 


out: 
real: 
logical : 


plot .TRUE, if line is visible or partly visible. 

corbeg(3) , corend(3), wxmin, wxmax, wymin, wymax 
plot 


SEE ALSO : 



CLPPOL 

CLPPZE 
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CLPPOL 


DECLARATION ! 

FDNCTION : 

PARAMETERS 

in: 


out: 

real: 

integer: 
logical : 
SEE ALSO: 


Subroutine CLPPOL (nedges, cordin, polnin, funcin, clpfun, 
clpnor, wxmin, wxmax, wymin, wymax, plot) 

CLPOLL clips polygons against the x and y boundaries. 

The coordinate, normal, and function arrays must close the 

B plygon. — For example, the first vertex location is the samA 
as the nedges + 1 location . 

All c oordinates are eve coordinates . 


clpfun .TRUE, if clipping function values are being 
clipped. 

clpnor .TRUE, if clipping normals are being clipped. 

wxmin Minimum x window coordinate. 

wxmax Maximum x window coordinate. 

wymin Minimum y window coordinate. 

wymax Maximum y window coordinate. 

nedges Number of edges in the polygon. 

cordin Coordinates of polygon. 

cordin(l,l) ™ X coordinate of first polygon vertex 
cordin(2,l) =” Y coordinate of first polygon vertex 
Cordin may be modified after clipping. 

polnin Normals of polygon after clipping. 

polnin(l,l) — X component of unit normal 
at vertex 1 

polnin(2,l) - Y component of unit normal 
at vertex 1 

Polnin may be modified after clipping. 

funcin Function values of polygon after clipping. 

Funcin may be modified after clipping. 

plot Logical; .TRUE, if polygon is visible after 

clipping. 

wxmin, wxmax, wymin, wymax, cordin(3,*), polnin(3,*), 
funcin(*) 

nedges 

clpfun, clpnor, plot 

CLPPZE 

CLPLIN 
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CLPPZE 


DECLARATION: 


Subroutine CLPPZE (nedges, cordin, polnin, funcin, clpfun, 
clpnor, zmin, zmax, plot) 


FUNCTION : Clips polygons against the z boundaries. 

PARAMETERS 

in: clpfun .TRUE, if clipping function values are being 

clipped. 

clpnor .TRUE, if clipping normals are being clipped. 

zmin Distance from eye to nearest clipping plane. 

zmax Distance from eye to farthest clipping plane. 

nedges Number of edges in the polygon. Nedges may be 
modified after clipping. 

cordin Coordinates of polygon. Cordin may be modified 
after clipping. 

polnin Normals of polygon. Polnin may be modified after 
clipping. 

funcin Function values of polygon. Funcin will be modified 
after clipping. 


plot 


.TRUE, if polygon is visible 


real: zmin, zmax, cordin (3,*), polnin (3,*), funcin (*) 

integer: nedges 

logical: plot, clpfun, clpnor 


SEE ALSO: 



CLPPOL 

CLPLIN 


Chapter Two TECHNICAL REFERENCES 2.16 



CNTBAR 


DECLARATION : Subroutine CNTBAR 

FUNCTION : Outputs contour legend bar for contours. 

Contours sh ould be set up CNTBAR before calling this rourinp. 
by calling SETFRN . 

SEE_MjSO: SETFLG 

INQFRN 
SETFRN 
INQFLG 
SETCNT 
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CNTRPT 


DECLARATION: 

FUNCTION: 

Subroutine CNTRPT (nedges , coords , xcentr) 
Calculates a polygon's center point. 

The coordinate array should close the nolvp'on 

PARAMETERS 



in: 

nedges 

Number of vertices in a polygon. 


coords 

Coordinate array for polygon. 

out: 

xcentr 

Coordinate array of center point. 

real: 

coords (3 , 

*) , xcentr(3) 

integer: 

nedges 
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COLERR 


DECLARATION : Function COLERR (color) 


FUNCTION: Calculates the error between the desired color and the next 

lowest color in the look-up table. 

PARAMETERS 

in: color The intensity of either the r, g, or b component of 

the desired color. (The range of color is from 0.0 
to 1.0). 

real: color 
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COLORS 


DECLARATION ; 

FDNCTION : 

PARAMETERS 

in: 


out: 

real: 

integer: 
COMMON BTjOCKS; 


Subroutine COLORS (nedges, atribt, polfun, coords, polnor, 
colnod, trnnod) 

Computes color values at polygon nodes according to user- 
defined light sources. 

Ail coord inates are in the eve coordinate system . 


nedges Nxunber of vertices in the polygon, 
atribt Attribute list for polygon, 
coords Coordinate array for polygon vertices, 
polfun Polygon function values at the vertices, 
polnor Normals of the polygon vertices . 

colnod Red, green, and blue color intensity at polygon 
vertices. 

trnnod Transparency values of polygon vertices . 

atribtC*), colnod(3,*), coords(3,*), polfun(*) , trnnod(*) , 
polnor(3,*) 

nedges 

/CFLAGS/ 

/CATTRI/ 

/CHFWAS/ 

/CMEMRY/ 
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COPNDM 


DECLARATION : 

FUNCTION : 

PARAMETERS 

out: 

Integer; 
character: 
SEE ALSO: 


Subroutine COPNUM (sordex, numcop, jroot, jchild, itorgr, 

cpynam) 

Given the copy number , gets the copy name together with its 
copy item and parent. 


sordex Sort number associated with the instance. 
cp 3 mam Copy name associated with sordex. 

jroot Root group number. 

jchild Item or group number of the copy name, 

itorgr Flag 1 if a group; 0 if an item, 

numcop Copy number. 

sordex, jroot, jchild, itorgr, numcop 

cpynam* (*) 

GETCOP 
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DEFALT 


DECLARATION: 


FUNCTION : 

PARAMETERS 


Subroutine DEFALT (atlist) 

Sets up a default attributes list. 


out: atlist Current attribute list, 

real: atlist (maxiaa) 


COMMON BLOCKS: 


/CATTRI/ 

/CLIMIT/ 
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DEFINE 


DECLARATION ! 

FUNCTION : 

PARAMETERS 

In: 

character : 


Subroutine DEFINE (grunam) 

Defines and activate a new group. 

grunam The name of the new group to be activated, 
grunam* (*) 
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DELETE 


DECLARATION : 

FUNCTION : 

PARAMETERS 

in: 

character: 


Subroutine DELETE (cp3mam) 

Deletes a call to an instance. 

cpynam Copy name to be deleted from the database. 
cpynam*(*) 
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DISALL 


DECLARATION : 

FUNCTION : 

PARAMETERS 


Subroutine DISALL 

Displays the picture for all options. 


COMMON BLOCKS : /DEVI/ 

/CMEMRY/ 

/CHFWAS/ 

/CLIMIT/ 
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DIST3CT 


DECLARATION: 

Subroutine DISTXT (string, nchars, r, g. 

b, ix, iy) 

FUNCTION: 

Displays text strings. 


PARAMETERS 



in: 

string Text string to be displayed, 

nchars Niamber of characters in string. 

r,g,b Desired color of text (0. 0-1.0) 

ix.iy Origin of the string in screen 

coordinates 

real: 

r,g,b 


Integer: 

nchars, ix, iy 


character : 

string* (*) 
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DODITH 


DECLARATION : 

FUNCTION : 

PARAMETERS 

in: 

real: 


Subroutine DODITH (r,g,b) 

DODITH performs dithering for a pixel. 


r,g,b Color components of the pixel (0.0 - 1.0) modified on 
return. 

r,g,b 
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DRVABS 


DECLARATION : Subroutine DRWABS (ix,iy) 

FUNCTION : Draws a line from the current location to the specified point 

(ix,iy) . 

PARAMETERS 


in: ix.iy The screen coordinates of the point to be drawn to. 

The (0,0) point is in the lower left corner, x 
increases from left to right, and y increases from 
bottom to top. The ix,iy point should become the 
current point after the draw command. 

integer: ix,iy 
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DRWBOR 


DECLARATION : Subroutine DRWBOR 

FUNCTION : Draws a border around the current viewport. 

When using DRWBOR. you must put graphics device into and our, 
of the graphics mode , 


SEE AT-SO : S ETMOD 
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ERASE 


DECIARATION : Subroutine ERASE 

FDNCTION: Clears the current viewport to the background color. 
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EXTCOP 


DECLARATTOW ! 

FDNCTION : 

PARAMETERS 

in: 

out: 

real: 
character: 
COMMON BLOCKS ; 

SEE ALSO : 


Subroutine EXTCOP (cpynam, ctm, atlist) 

Extracts transformation and attribute information for an 
instance . 


cpynam The instance name. 

atlist Attribute list for the instance. 

ctm Transformation matrix for the instance. 

atlist (maxatt) , ctm(4,4) 

cpynam* (*) 

/CHFWAS/ 

/CLIMIT/ 

/CMEMRY/ 

RPLCOP 
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FNDFRM 



Subroutine FNDFRM (chrfrm, keyfrm, subfrm, ierr) 

Finds the keyframe and subframe from a character string of 
the form keyframe . subframe . 

in: chrfrm A character string defined in the form 

keyfrm. subfrm. 

out: keyfrm Keyframe number, 

subfrm Subframe number. 

ierr Error flag. 0 if operation was successful; 

1 if chrfrm was not in the form 
keyframe . subframe . 

Integer: subfrm, ierr, keyframe 

character: chrfrm*(*) 



Chapter Two TECHNICAL REFERENCES 2.32 


DECLARATION : 

FUNCTION : 

PARAMETERS 



FOURVW 


DECLARATION : 
FUNCTION : 
COMMON BLOCKS: 


Subroutine FOURVW 

FOURVW displays the four standard views. 

/CFLAGS/ 

/RESULT/ 
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FRINGE 


DECLARATION ; 

FUNCTION : 

PARAMETERS 

in: 

out: 

real: 
integer: 
SEE ALSO : 


Subroutine FRINGE (nlevel, colfnc, fnclev, valnod, xir, xig, 
xib) 

Calculates color at a node of a polygon when fringes are on. 
Fringes should be set up using SETFRN before calling FRINGE . 


colfnc Color at each fringe function level, 
fnclev Function value at each level, 
nlevel Number of function levels, 
valnod Function value at the node. 

xir Red color component at node, 

xig Green color component at node, 

xib Blue color component at node. 

colfnc (3, nlevel) , fnclev(nlevel) , xir, xig, xib, valnod 

nlevel 

SETFLG 

FRNBAR 

INQFRN 

SETFRN 

INQFLG 
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FRNBAR 


DECLARATION : Subroutine FRNBAR 

FUNCTION : Displays fringe bar (legend) for color fringes. 

Fringes should be set using SETFRN before calling FRNBAR . 


SEE ALSO : FRINGE 

SETFLG 
INQFRN 
SETFRN 
INQFLG 
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GENTXT 


DECLARATION: 
FUNCTION : 
SEE ALSO: 


Entry GENTXT 

Generates text string for display. 

TXTDIS 

TXTINT 
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GETAGR 


DECLARATION : 
FUNCTION : 
PARAMETERS 
out: 
integer : 
SEE ALSO: 


Entry GETAGR (i) 

Returns the active group number. 


i Active group number, 
i 

NEWGRP 
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GETCLP 


DECLARATION ! 

FUNCTION: 

PARAMETERS 

out: 

real: 
SEE ALSO: 


Entry GETCLP (znear, zfar, zdist) 
Gets z clipping information. 


znear Distance from 

zfar Distance from 

zdist Distance from 

znear, zfar, zdist 

SETCLP 


eye to the nearest z clipping plane, 
eye to the farthest z clipping plane, 
znear to zfar. 
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GETCOM 


DECLARATION : 

FUNCTION : 

PARAMETERS 

in: 

out: 

Integer: 
character: 
SEE ALSO : 


Subroutine GETCOM (text, nchar, word, n, key, kl) 
Parses a text string for key words. 


n Number of words in the key word array, 

word Array of key words that are being looked for. 
nchar Nximber of characters in entered text string, 
text Entered text string to be parsed. 

kl Number of key words found in the text string. 

key Array of key word starting locations in the word 
array that were found in the text string. 

n, kl, nchar, key(*) 

text*73, word(n)*4 

GETNUM 
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GETCOP 


DECLARATION : Subroutine GETCOP (cpynam, iflag, jroot, jchild, itorgr, 

sordex, numcop, postfl) 

FUNCTION : Given the copy name, gets the copy number and associated 

indexes . 

PARAMETERS 


in: 


cpynam Copy name to get information on. 

iflag 1 if adding a copy name. 

2 if deleting a copy name. 

3 if traversing with the copy name to get group and 
item information. 

4 if purging all calls to an item or group. 

5 if printing the copy names to the screen. 


out: 

postfl 

0 if the copy is posted; 1 if unposted. 


sordex 

Sort nvunber for groups and items. 


itorgr 

Flag 1 if a group; 0 if an item. 


numcop 

Copy number associated with the copy name. 


jroot 

Root group nxjunber. 


jchild 

Item or group number of the copy name. 

real: 

postfl 


integer: 

iflag, 

sordex, itorgr, numcop 

character : 

cpynam* (*) 

SEE ALSO: 

COPNUM 
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GETDEF 


DECLARATION : Entry GETDEF (numcol, red, grn, blu) 

FUNCTION : Returns the red, green, and blue color intensities for color 

number numcol. 

All color, values are from 0 to 1 . 

PARAMETERS 


out: numcol 

red 

green 

blu 


Number of the default color to return information 
for. 

Red intensity default color number numcol. 

Green intensity default color number numcol. 

Blue intensity default color number numcol. 


real: red, grn, blu 


integer : numcol 


SEE ALSO ! SETDEF 
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GETGRU 


DECLARATION ; 

FUNCTION: 

PARAMETERS 

in: 


out: 

integer: 
character: 
SEE ALSO: 


Subroutine GETGRU (grpnam, jroot, iflag) 

Gets group name and group number relationships . 


8^P^3.m Name of the group. Grpnam will be in or out 
depending on iflag option) . 

iflag 1 if adding a group name to the list. 

2 if deleting a group from the list. 

3 if getting the name from the nvunber. 

4 if getting the number from the name. 

5 if listing out defined group names. 

6 if changing the name of a group. 

jroot Number of the group. Jroot will be in or out 

depending on iflag option) . 

jroot, iflag 

grpnam* (*) 

GETITM 
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GETITM 


DECLARATION : 

FUNCTION: 

PARAMETERS 

in: 


out: 

Integer: 
character : 
SEE ALSO : 


Subroutine GETITM (itname, j child, iflag) 
Gets item name and item nximber relationships . 


itname Name of the item. Itname will be in or out 
depending on iflag option. 

iflag 1 if adding a item name to the list. 

2 if deleting a item from the list. 

3 if getting the name from the nvimber. 

4 if getting the number from the name. 

5 if listing out defined item names. 

j child Number of the item (in or out depending on iflag 
option) . 

j child, iflag 

itname* (*) 

GETGRU 
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GETLIM 


DECLARATION ; 

FUNCTION: 

PARAMETERS 

out: 

real: 
COMMON BLOCKS : 

SEE ALSO: 


Entry GETLIM (small, big) 

Returns the maximum and minimum model coordinates of all 
parts processed with MAXMIN. 


big Maximum coordinates returned, 

small Minimum coordinates returned. 

srnallO), big(3) 

/CLIMIT/ 

/MASTER/ 

MAXMIN 
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GETNIM 


DECLARATION : 

FUNCTION : 

PARAMETERS 

in: 

out: 

real: 
integer: 
character: 
SEE ALSO : 


Subroutine GETNUM (text, nchar, xnvun, k2) 
Parses a text string for numbers. 


nchar Number of characters in line of entered text, 
text Entered text string to be parsed. 
k2 Number of numbers found in the text string, 

xnum Array of numbers found in the text string. 

xmun(40) 

k2 , nchar 

text*? 3 

GETCOM 
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GETWND 


DECLARATION : 

FUNCTION : 

PARAMETERS 

out: 

real: 
SEE ALSO: 


Entry GETWND (xmin, xmax, ymin, ymax) 

Inquires on the world window bounds . The scene 
is clipped to these values. 


xmin Minimum x world coordinate for window currently set. 

xmax Maximum x world coordinate for window currently set. 

ymin Minimum y world coordinate for window currently set. 

ymax Maximum y world coordinate for window currently set. 

xmin, xmax, 3miin, ymax 

SETWND 
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GETXT 


DECLARATTOW : 

FDNCTION : 

PARAMETERS 

in: 

out: 

integer: 

character: 


Subroutine GETXT (text, nchar, textin) 
Prompts for and retrieves a text string. 


textin Optional prompt string that will be written to 

display device prior to reading text string. If 
textin is blank, the prompt will not be displayed. 

nchar Number of characters in line of entered text, 
text Entered text string. 

nchar 

text*73, textin*80 
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GLBACT 


DECLARATTON ; 

FUNCTION : 

PARAMETERS 

in: 


real: 
character : 
COMMON BLOCKS: 


Subroutine GLBACT (code, vail, val2, val3, val4, val5, val6) 

Provides an interface between global actions and the animate 
module . 


It is not necessary to call GLBACT unless animation is being 
done . 


code Code that determines the operation performed in 
GLBACT . 

'SCL' Global scales for this subroutine. 

'ROT' Global rotate. 

'COL' Background color. 

'WND' Window. 

'PER' Perspective angle. 

'DST' Distance. 

'FRM' Look- from position or vector. 

'ATT' Look- for position. 

'CLP' Z-clipping planes. 

'VEW' Viewport. 

'LIT' Lightsource information. 

'FOG' Fog planes. 

vail Vail through val6 are values needed to perform 
wanted operation. 

vail, val2, . . . val6 

code*3 

/CMEMRY/ 

/CHFWAS/ 
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GLBAXS 


DECLARATTOW ; 

FUNCTION : 

PARAMETERS 

in: 

real: 
COMMON BLOCKS: 


Subroutine GLBAXS (tm, atribt) 
Draws the global axis. 


tm Viewing matrix, 

atribt Attribute list. 

tm(4,4), atribt (maxiaa) 

/CATTRI/ 

/CFLAGS/ 

/CLIMIT/ 

/RESOLT/ 

/VEWSTF/ 
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GRAINT 


DECLARATION : Subroutine GRAINT 

FUNCTION : Initializes the graphics package. 

must alway s be called before any other graphics 

application is called , 


COMMON BLOCKS : /CATTRI/ 

/CHFWAS/ 
/CLIMIT/ 
/CMEMRY/ 
/DEVI/ 
/VEWSTF/ 
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GTUROX 


DECLARATION ! 

FUNCTION : 

PARAMETERS 

in: 

real: 
SF.F. AT-SO- 


Subroutine GTUROX (theta, ctm) 

Concatenates a right-handed rotation about the x-axis to a 
transformation matrix. 


theta Angle in degrees. 

ctm Current transformation matrix that is modified on 
return. 


theta, ctm(4,4) 


GTUROY 

GTUROZ 

GTUSCL 

GTUTRN 

INT4X4 
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GTUROY 


DECLARATTON : 

FUNCTION : 

PARAMETERS 

in: 


Subroutine GTUROY (theta, ctm) 

Concatenates a right-handed rotation about y-axis to a 
transformation matrix. 

theta Angle in degrees. 

ctm Current transformation matrix modified on return. 


real: theta, ctm(4,4) 


SEE_ALSO: GTUROX 

GTUROZ 
GTUSCL 
GTUTRN 
INT4X4 
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GTUROZ 


DECLARATION ; Subroutine GTUROZ (theta, ctm) 

FUNCTION ; Concatenates a right-handed rotation about z-axis to a 
transformation matrix. 

PARAMETERS 


in; theta 
ctm 


Angle in degrees . 

Current tranxformation matrix modified on return. 


real; theta, ctm(4,4) 


SEE ALSO ; GTUROX 
GTUROY 
GTUSCL 
GTUTRN 
INT4X4 
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GTUSCL 


DECLARATION ; 

FUNCTION : 

PARAMETFRS 

in: 

real: 
SEE ALSO: 


Subroutine GTUSCL (sx, sy, sz, ctm) 

Concatenates scalings to a transformation matrix. 


sx Scaling in x- direction, 
sy Scaling in y-direction. 
sz Scaling in z-direction. 

ctm Current transformation matrix modified on return, 
sx, sy, sz, ctm(4,4) 


GTUROX 

GTUROY 

GTUROZ 

GTUTRN 

INT4X4 
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GTUTRN 


DECLARATION: 

Subroutine GTUTRN (dx, dy, dz, ctm) 

FUNCTION! 

Concatenates a translation to a transformation matrix. 

PARAMETERS 



in: 

dx 

Translation in x-direction. 


dy 

Translation in y-direction. 


dz 

Translation in z-direction. 


ctm 

Current transformation matrix modified on return 

real: 

dx, dy, 

, dz, ctm(4,4) 

SEE ALSO: 

GTUROX 



GTUROY 



GTUROZ 



GTUSCL 



INT4X4 
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HIDLIN 


DECLARATION ! 

FUNCTION : 

PARAMETERS 
in: 
real: 
COMMON BLOCKS : 

SEE ALSO : 


Subroutine HIDLIN (prtcol) 


Perform hidden line removal and contour generation. 

HIDLIN can be — called after all polygons have been loaded w i tb 
STOREL. — 


prtcol Array of rgb colors for each part in the picture. 

prtcol(3 ,*) 

/HIDSTF/ 

/KEEP/ 

STOREL 
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HIDSUR 


DECLARATION : Subroutine HIDSUR 


FUNCTION : Performs hidden surface removal. 


HIDSUR can be c alled after calls to INTHID and INTHD2 . 
after all p olygons have been packed down . 


COMMON BLOCKS : /RESOLT/ 

/CMEMRY/ 
/CHFWAS/ 

SEE AT-SO : INTHID 

INTHD2 
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HUDITM 


DECLARATION ! 
FUNCTION: 
PARAMETERS : 
in: 

integer : 


Subroutine HUDITM (jpar, jitm, jcopy) 

Deletes an item call from the hierarchical data structure. 


jpar Parent group number, 
jcopy Instance copy number, 
jitm Item number. 

jpar, jcopy, jitm 
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INCONG 


DECLARATION ! 

FUNCTION! 


Entry INCONG (congin) 

Returns the continuity for the look- at and look- from 
locations for animation. 


PARAMETERS 


out: congin Array of continuity values, 

real: congin(maxprt, 2) 
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INITGI 


DECLARATION : Subroutine INITGI (grpdex, grsort, trndex, gstart, sgrcnt, 

sitcnt, namgrp, namitm, igrupa, ichida, 
iorga, numcpy, namcpy) 


FUNCTION : 

PARAMETERS 

in: 


Initializes groups and items. 


grpdex 

Group number array. 

grsort 

Group sort array. 

igrupa 

Root group array. 

trndex 

Transformation number index array. 

gstart 

Group start array. 

sgrcnt 

Subgroup counter array. 

sitcnt 

Subitem counter array. 

namgrp 

Group names array. 

namitm 

Item names array. 

ichida 

Child array. 

iorga 

Item or group flag array. 

ntimcpy 

Copy number array. 

namcpy 

Copy name array. 


integer : namgrp ( maxchr , 0 : maxgrp ) 

namitm(maxchr , 0 : maxitm) 
namcpy (maxchr , 0 : maxins ) 
igrupa (maxins ) 
ichida (maxins ) 
iorga(maxins) 
numcpy (maxins ) 
grpdex (maxins ) 
grsort (maxins) 
tmdex(maxins ) 
gs tart ( maxgrp ) 
sgrcnt (maxgrp ) 
s itcnt (maxgrp ) 
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INQBGC 


DECLARATION : 

FUNCTION : 

PARAMETERS 

out: 

real: 
SEE ALSO: 


Entry INQBGC (red, green, blue) 
Returns on the background color. 
All values are from 0 to 1 


red Red intensity of background color, 
green Green intensity of background color, 
blue Blue intensity of background color. 

red, green, blue 

SETBGC 
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INQBOX 


DECLARATION: 

FUNCTION: 

PARAMETERS 

in: 

real: 
integer: 
SEE ALSO: 


Entry INQBOX (npart, cormax, cormin) 

Returns the x,y,z limits of a bounding box for an instance. 


npart Number of parts in the model. 

cormax Maximum x, y, and z coordinates of box. 

cormin Minimum x, y, and z coordinates of box. 

cormax(3) , cormin(3) 

npart 

SETBOX 
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INQCNT 


DECLARATION : 
FUNCTION : 
PARAMETERS 
out: 
Integer: 
SEE ALSO : 


Entry INQCNT (if lag) 

Returns the number of defined contour levels. 


if lag Number of contour levels to be displayed. 

iflag 

SETCNT 
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INQCON 


DECLARATION : Entry INQCON (coninq) 

function : Returns the instance continuities at the keyframes for 

animation. 

PARAMETERS 

out: coninq Array of continuities, 

real: coninq (maxfrm.maxprt) 
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INQDEV 


DECLARATION : Subroutine INQDEV (shaded, polfil, hrdwar) 

FUNCTION ; Checks to see if the device has special hardware capabilities 
that are being taken advantage of in display. INQDEV also 
checks to see if the device can fill polygons or do shading. 

PARAMETERS 


out: 

hrdwar 

.TRUE. 

if special hardware available 


polfil 

.TRUE. 

if polygon fills available. 


shaded 

.TRUE. 

if shaded images possible. 

logical : 

hrdwar, polfil. 

shaded 
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INQDSP 


DECIARATTON ; 

FUNCTION : 

PARAMETERS 

in: 


Entry INQDSP (xdis, ydis, zdis, valnod) 

Returns the magnitude of a displacement at a node. 


xdis X displacement of a node, 
ydis Y displacement of a node, 
zdis Z displacement of a node. 


out: valnod Magnitude of displacement of the node, 

real: xdis, ydis, zdis, valnod 
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INQDST 


DECLARATION ! 

FUNCTION: 

PARAMETERS 
in: 
real: 
COMMON BLOCKS ! 
SEE AT -SO- 


Entry INQDST (dlst) 

Inquires distance from eye to look-at point. 

Use INQDST only in persp e ctive angle mode and when not doinp- 
auto center . 

dist Distance from eye to look-at point, 
dist 

AEWSTF/ 

SETDST 
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DECLARATION ! 

FUNCTION : 

PARAMETERS 

in: 


out: 
integer: 
character : 
COMMON BT JOCKS : 
SEE ALSO: 


INQFLG 


Entry INQFLG (cflag, If lag) 
Inquires on global flags set. 


cflag 


Iflag 

iflag 


Key that indicates what is being inquired on 
one of the following: 


'ALIA' 

'SHDO' 

'AXIS' 

'BOUN' 


'BORD' 

'CENT' 

'COLO' 

'DISP' 

'DITH' 

'ELEM' 

'FOUR' 

'GLAS' 

'HAZE' 

'HIDD' 

'LABE' 

'LEGE' 

'NODE' 

'ONED' 

'OVER' 

'PERA' 

'PERS' 

'POLY' 

'POOR' 

'SHAD' 

'SYMM' 

'VECT' 

'WARP' 

'TEXT' 

'TK41' 

'LABV' 

'PLYF' 


Anti-aliasing flag. 

Shadow flag. 

Axis are to be drawn flag. 

Draw bounding box instead of model 
flag. 

Draw border flag. 

Auto center flag. 

Draw colored lines flag. 
Displacements are performed flag. 
Dithering status flag. 

Element labeling flag. 

Four view flag. 

Transparency flag. 

Haze/fog flag. 

Hidden line flag. 

Label contours flag. 

Display contour legend flag. 

Node labeling flag. 

Warped polygons on edge flag. 

Overlay flag. 

Perspective or windowing toggle flag. 
Perspective flag. 

Polygon clipping flag. 

Poorman flag. 

Shaded Images flag. 

Symmetric contours or fringes flag. 
Vector arrows flag. 

Function warping flag. 

Text display flag. 

Tektronix 4129 hardware flag. 

Label for views flag. 

Polygon fill shaded Images flag. 


.TRUE, or .FALSE, status of cflag. 


cflag*(*) 


/CFLAGS/ 


SETFLG 
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INQFNC 


DECLARATION : 

FUNCTION: 

PARAMETERS 

out: 

real: 
Integer : 
SEE ALSO : 


Entry INQFNC (nlevel, valmin, valmax) 

Returns the number of color fringes set, and the minimum and 
maximum range of fringes. 

SETFNC should be called before calling INGFNC . 


nlevel Number of function levels defined, 
valmin Minimum value of color fringes . 
valmax Maximum value of color fringes. 

valmin , valmax 

nlevel 

SETFNC 
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INQFOG 


DECLARATION : 

FUNCTION : 

PARAMETERS 

out: 

real: 
SEE ALSO : 


Entry INQFOG (dstner, dstfar) 

Returns the distance to the nearest and farthest fog planes. 


dstnera Distance to nearest fog plane, 
dstfar Distance to farthest fog plane. 

dstner, dstfar 

SETFOG 
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INQFRM 


DECLARATION : 

FUNCTION : 

PARAMETERS 
out: 
integer : 
SEE ALSO : 


Entry INQFRM (numfrm) 

Returns on the animation keyframe being worked on. 

You should call ANFILI before calling INQFRM to see if 
animation Is really poing on . 

numfrm The number of the keyframe being worked on. 

numfrm 

SETFRM 

ANFILI 
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INQFRN 


DECLARATION ; 
FONCTTQN : 
PARAMETERS 
out: 
Integer : 
SEE ALSO ; 


Entry INQFRN (if lag) 

Returns the number of fringe levels. 

if lag Niomber of fringe levels to be displayed, 

iflag 

SETFRN 
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INQGLB 


DECLARATION : Entry INQGLB (tm) 

FUNCTION : Returns the global transformation matrix. 

PARAMETERS 


out: tm Transformation matrix. 

real: tm(4,4) 

SEE AT-SO : S ETGLB 

ROTATE 
SCALE 
RESET 
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INQLAF 


DECLARATION: 

FUNCTION : 

PARAMETERS 

in: 

out: 

real: 
logical : 
COMMON BLOCKS ; 


Subroutine INQLAF (lookat, lookfr, icentr) 

Returns the look-at and look-from position. If icentr is 
•TRUE. , INQLAF will return a vector for lookfr. 

icentr .TRUE, if auto-center is on. 

lookat Look-at position, 
lookfr Look-from position. 

lookat(3), lookfr(3) 

icentr 

/VEWSTF/ 
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INQLEV 


DECLARATION: Entry INQLEV (nlevel, colfnc, fnclev) 

FDNCTION : Inquires on the number of function levels, and the function 

value and color used with each level for fringes. 

PARAMETERS 

out: nlevel Number of function levels defined. 

colfnc Array of colors at each function level, 

fnclev Array of function values at each level. 

real: colfnc (3,maxlev), fnclev (3,maxlev) 

integer: nlevel 
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INQLIT 


DECLARATION : 

FUNCTION: 

PARAMETERS 

In: 

out: 


real: 
integer: 
COMMON BLOCKS ; 

SEE ALSO : 


Subroutine INQLIT (litnum, xltint, litloc, xltxyz) 

Given the light source number, INQLIT returns intensity of 
bhe light, whether or not it is at the eye of the observer, 
and returns its position if not at the eye of the observer! 


litnum Maximum number of lights allowed. 

xltint Light source intensity, 

litloc Light source location flag: 

0 ” at the eye of the observe 

1 - at a specified location 

2 - on a specified vector at infinity 

xltxyz x,y,z light source locations. 

xltint, xltxyz (3) 

litnvim, litloc 

/CHFWAS/ 

/CMEMRY/ 

LITSRC 
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INQPER 


DECLARATION ! 

FUNCTION ! 

PARAMETERS 

out: 

real: 
SEE ALSO: 


Entry INQPER (anginq) 

Inquires perspective angle. 

Use INQPER only if you are in the perspective mnrtft 

anginq Perspective angle that is currently set (in 
degrees) . 

anginq 

SETPER 

INQFLG 
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INQPRT 


DECLARATION : 

FUNCTION : 

PARAMETERS 

out: 


integer : 
SEE ALSO : 


Entry INQPRT (ileft, iright, ibottm, itop) 
Returns the viewport boundaries . 

All coordinates are screen coordinates. 


ileft Left viewport boundary, 

iright Right viewport boundary, 
ibottm Bottom viewport boundary, 
itop Top viewport boundary. 

ileft, iright, itop, ibottm 

SETPRT 
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INQRAT 


DECLARATION : Entry INQRAT (speed) 

EDNCTION : Returns the instance rates at the keyframes for animation. 

PARAMETERS 


out: speed Array of rates, 

real: speed(maxfrm,maxprt) 
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/ 


INQREF 



DECLARATION: 

Entry INQREF (ncolor, colfnc) 

FUNCTION: 

Inquires on the reference colors for color fringe 

PARAMETERS 


out: 

ncolor Number of reference colors defined, 

colfnc Array of colors at each function level. 

real: 

colfnc (3, maxlev) 

integer : 

ncolor 

SEE ALSO: 

INQLEV 

INQFNC 

SETREF 
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INQSCL 


DECLARATION ; 

FDNCTION ; 

PARAMETERS 

out: 

real: 
COMMON BLOCKS : 
SEE ALSO : 


Entry INQSCL (scalex, scaley) 

Inquires on the window to viewport scale factors. 
SETSCL must be called before calling this routina 

scalex X direction scale factor, 

scaley Y direction scale factor. 

scalex, scaley 

/RESOLT/ 

SETSCL 
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INQSPL 


DECLARATION : Entry INQSPL (splinq) 

FUNCTION . Returns the instance on spline Hags at the keyframes for 
animation. 

PARAMETERS 


out: splinq Array of spline flags for global, 

real: splinq (maxfrm.maxprt) 
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INQSUB 


DECLARATION : 

FUNCTION : 

PARAMETERS 
out: 
integer : 
SEE ALSO: 


Entry INQSUB (isub) 

Returns the number of subframes that exist between the frames 
for animation. 


isub Array of subframes. 

isub(maxfrm) 

INQFRM 

ANFILI 
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INQTEN 


DECLARATION : Entry INQTEN (teninq) 

FUNCTION : Returns the instance tensions at the keyframes for animation. 

PARAMETERS 


out: teninq Array of tension for global, 

real: teninq (maxfrm, maxprt) 
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INQTXT 


DECLARATION : Entry INQTXT (mesage, xsize, ysize, twodim, xpos, 3 rpos, 

zpos, xang, yang, zang, r, g, b, xslant, i, 
nsav) 

FDNCTION : Inquires on the text string attributes. 

PARAMETERS 


in: 

i 

Index of text string to retrieve. 

out: 

nsav 

Total number of stored messages. 


mesage 

The text string array. 


xsize 

X dimension factor. 


ysize 

Y dimension factor. 


twodim 

If .TRUE, message is 2-D. 

If .FALSE., strings are in 3-D text. 


xpos 

X position of text string in world coordinate. 


3rpos 

Y position of text string in world coordinate. 


zpos 

Z position of text string in world coordinate. 


xang 

X directional vector. 


yang 

Y directional vector. 


zang 

Z directional vector. Angle of text string if 2-d. 


r,g,b 

Red, green and blue color values. 


xslant 

Rotation about x-axis for 3-d text string in 
degrees. 

real: 

xsize, 

xslant 

ysize, twodim, xpos, 3 rpos, xang, yang, zang, r, g, b, 


integer: i, nsav 

character: *80 mesage 

SEE ALSO : SAVTXT 
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INQUIR 


DECLARATION ; 

FDNCTION : 

PARAMETERS 

in: 

character : 


Subroutine INQUIR (name) 

Inquires and prints attribute list for an item or group. 


name Copy name . 
name*(*) 
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INRATG 


DECLARATION : Entry INRATG (ratgin) 

FUNCTION: Returns the array of rates for global animation parameters. 

PARAMETERS 


out: ratgin Array of rates for global values, 

real: ratgin(maxfrm, 11+litnum) 
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INSPLG 


DECLARATION : Entry INSPLG (onsgin) 


FUNCTION : Inquire onspline flag array for the look- at and look- from 

locations for animation. 


PARAMETERS 


out: onsgin Array of onspline flags for instances, 

real: onsgin(maxfrm,2) 
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INT4X4 


DECLARATION : 

FUNCTION : 

PARAMETERS 

out: 

real: 


Subroutine INT4X4 (trnfm) 

l^itis-lizes a transfomation matrix to the identity matrix. 

trnfm Transformation matrix intialized to the identity 
matrix. 

trnfm(4,4) 
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INTENG 


DECLARATION : Entry INTENG (tengin) 

FUNCTION : Returns the tension for the look-at and look-from locations 

for animation. 

PARAMETERS 


out: tengin Tension array, 

real : tengin(maxprt , 2) 
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INTHD2 


DECLARATION : Subroutine INTHD2 

FUNCTION : Initializes portions of hidden surface processor. 

INTHID2 should only be run before each hidden surface oict-nrp 
after the call to POT.YS . 


COMMON BLOCKS : /HIDSTF/ 

SEE ALSO : INTHID 
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INTHID 


DECLARATION : 

FUNCTION : 

COMMON BLOCKS : 
SEE ALSO: 


Subroutine INTHID 


Initializes portions of hidden surface processor. 

— routine sh ould be run once for each hidden surface 
picture, before the call to nolvs . 

/CHFWAS/ 

/CMEMRY/ 

/HIDSTF/ 

/PIXSTF/ 

/KEEP/ 

INTHD2 
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INTHLR 


DECLARATION : Subroutine INTHLR 

FUNCTION: Initializes the hidden line removal process. 

INTHLR must be called before anv other hidden line removal 
routine . 

COMMON BLOCKS : /HIDSTF/ 

/KEEP/ 
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INTSHA 


DECLARATION : 

FONCTION : 

PARAMETERS 

in: 

real: 
integer : 
COMMON BLOCKS : 


Subroutine INTSHA (numlit, drknes) 

Stores light nxomber and shadow darkness for a light source. 
Shadow darkness is linear from 0 to 1 , 


numlit Number of light sources being set. 

drknes Shadow intensity between 0 and 1. A value of 0 is 
no shadows, a small value is a dark shadow, and a 
value close to 1.0 is a very light shadow. 

drknes 

numlit 

/CHFWAS/ 

/CLIMIT/ 

/CMEMRY/ 
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ITABLE 



DECIARATION : Function ITABLE (r,g,b, errfac) 

FUNCTION . Returns the look-up table location of the color nearest the 
specified color. 

PARAMETERS 


ian: r,g,b Component intensities of the color looked for (00- 

1 . 0 ). 


out: 

real: 

integer: 



errfac Equal to 0.0 for dithering; - 0.5 all other times, 
itable The nearest location in the color look-up table, 
r, g, b, errfac 
itable 
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LCUC 


DECLARATION ! 

FUNCTION ! 

PARAMETERS 

in: 

integer: 

character: 


Subroutine LCUC (text, nchar) 

Converts a text string to be all upper case. 


nchar Number of characters in text. 

text Text string to be converted. The text string will 
be modified on return. 

nchar 


text*? 3 
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LENTXT 


DECLARATION : 

FUNCTION : 

PARAMETERS 

in: 


out: 


integer : 
character : 


Function LENTXT (text, len) 

Determines the length of a text string. 

Text string. 

The dimensioned length of the text string. 

Location of the last non -blank character in the 
text string. 

len, lentxt 

text*73 


text 

len 

lentxt 
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LITSRC 


DECLARATION : 

FDNCTIQN : 

PARAMETERS 

in: 


real: 
integer : 
COMMON BLOCKS : 

SEE AT-SO- 


Subroutine LITSRC (nlsrce, amount, jlocat, x, y, z) 
Sets light source parameters. 


nlsrce Light source number. 

amount Light source intensity. If the amount is zero, the 
other parameters are ignored. Amount is a value 
between 0 and 1.0. 

j locat “ 0 if light source is at the eye of the observer 
(x,y,z are ignored). 

- 1 if one light source is at infinity (x,y,z are 
components of a vector pointing from the origin in 
the light source direction) . 

“ 2 if the light source is at the user-defined 
position (x,y,z are the coordinates of the light 
source position) . 

X X coordinate of light source. 

y y coordinate of light source. 

z z coordinate of light source. 

amount , x , y , z 

nlsrce, jlocat 

/CHFWAS/ 

/CLIMIT/ 

/CMEMRY/ 

INQLIT 
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LODCOL 


DECLARATION : 

FUNCTION : 

PARAMETERS 

in: 


real: 
integer: 
SEE ALSO: 


Subroutine LODCOL (ipart, prtcol, colors) 

Loads color information for part number being processed. 


ipart Part number currently being processed. This number 
should be equivalent to the number that is passed 
into subroutine PIPLIN. Displacement arrows are 
loaded with part numbers starting at 10001. 

prtcol Reference array of rgb colors for each part in the 
picture. This array should be equivalent to the 
array that is passed into subroutine HIDLIN. 

colors r,g,b color components of part ipart. 

prtcol(3,*), colors(3) 

ipart 

HIDLIN 
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MAPWV 


DECLARATION : Subroutine MAPWV (sx, sy, wxmin, wymin, Ivxmin, ivymin, x, 

y. iy) 

FUNCTION : Transforms world coordinates into screen coordinates. 

X and y — cpor indates should be dinned so they are visible on 
the screen. 


PARAMETERS 

in: 


out: 
real: 
integer : 


sx 

sy 

wxmin 

wymin 

ivxmin 

ivymin 

X 

y 

iy 

sx, sy, 


Window to viewport scale factor in x. 

Window to viewport scale factor in y. 

Minimum x- coordinate for window in world. 

Minimum y- coordinate for window in world. 

Minimum x viewport boundary (0 to 1) . 

Minimum y viewport boundary (0 to 1) . 

X world coordinates that is modified on return to x 
screen coordinate. 

y world coordinates . 

y screen coordinate rounded to the nearest integer 
wxmin, wymin, ivxmin, ivymin, x, y 


iy 


SEP. AT-SO r INQSCL 
INQPRT 
GETWND 
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MAXMIN 


DECLARATION ! 

FDNCTION : 

PARAMETERS 

in: 


real: 
Integer: 
COMMON BLOCKS ! 

SEE ALSO! 


Entry MAXMIN (npart, limprt, tm, displc, warp) 

Finds and stores the maximum and minimum coordinates of a 
part. 

Routine compare s maxlmums and mlnlmums to previous limits 
found from other parts processed bv MAXMIN . 

npart Part number to process, 

limprt Part limits array. 

tm Transformation matrix for part npart. 

displc Displacement factor (if used), 

warp Function warping value (if used). 

tm(4,4), displc, warp(3) 

npart, limprt (2 ,maxitm) 

/CLIMIT/ 

/MASTER/ 

GETLIM 
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MODIFY 


DECLARATION : 

FUNCTION : 

PARAMETERS 

in: 


real: 
integer : 
character : 


Subroutine MODIFY (cp 3 niain, icode, value) 

Modifies transformation matrix or attribute list for copy 
cpynam . 


cpynam Copy name of instance to transform or change 
attribute list. 


icode Modification flag. 


value 


- 1 if initialize copy's transformation matrix. 
=2 if reorient copy to local axis system. 

* 3 if scale copy. 

“4 if rotate copy. 

- 5 if translate copy. 

- 6 if clearing attribute list for copy. 

- 7 if setting polygon order for copy. 

*•8 if setting copy color. 

- 9 if setting feature angle. 

- 10 if setting shrink factor. 

- 11 if setting shading type. 

- 12 if setting shadow casting. 

- 13 if setting transparency parameters . 

- 14 if setting contour flag. 

- 15 if setting fringe flag. 

* 16 if setting diffused light intensity. 

= 17 if setting displacement factor. 

“ 18 if setting post flag. 

“ 19 if setting light source parameters. 

- 20 if setting warp vector. 

21 if setting dotted hidden lines. 

* 22 if setting node numbers flag. 

- 23 if setting element numbering flag. 

- 24 if setting local origin. 

25 if setting poorman flag. 

“ 26 if displaying coordinate triad. 

- 27 if setting displacement vector arrows scale 

factor. 

Values for transformation or attribute 
modifications . 


value (*) 
icode 

cpynam* (*) 
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(cont.) MODIFY 


COMMON BIjQCKS; 


/CHFWAS/ 

/CLIMIT/ 

/CMEMRY/ 
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M0V4X4 


DECLARATION ; 

FUNCTION : 

PARAMETERS 

in: 

real: 


Subroutine M0V4X4 (a, b) 

Copies the first matrix into the second matrix. 


a First 4x4 matrix, 

b Second 4x4 matrix. 

a(4,4), b(4,4) 
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MOVAfiS 


DECLARATION ! 

FUNCTION : 

PARAMETERS 

in: 

integer : 


Subroutine MOVABS (ix, iy) 

Update the current point to the specified screen coordinates . 


ix, iy Screen coordinates of the desired point. (0.0) is 
the lower left point of the screen. 


ix, iy 
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KUL4X4 


DECLARATION : 

FONCTION : 

PARAMETERS 

in: 

out; 

real: 

SEE ALSO: 


Subroutine MUL4X4 (a, b, c) 
Performs the matrix multiply, 


a First 4x4 matrix, 

b Second 4x4 matrix. 

c Resulting 4x4 matrix. 

a(4,4), b(4,4), c(4,4) 

INT4X4 

M0V4X4 


X b — c. 
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NEUGRP 


DECLARATION: 

Entry NEWGRP (mungru) 

FUNCTION: 

Sets up a new active group. 

PARAMETERS 


in: 

numgru Group number of new active group 

integer : 

numgru 

SEE ALSO: 

GETAGR 
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NORMAL 


DECLARATION : 

FUNCTION : 

WARNING : 

PARAMETERS 

in: 


Subroutine NORMAL (nedges, coords, xcentr, xn, contst) 
Calculates normals at nodes of polygon. 

The coordinate array should close the polygon. 


nedges Number of vertices in polygon, 
coords Coordinate array for polygon, 

xcentr Coordinate array of center point. 


out: xn Normal array for polygon. 

contst .TRUE, if polygon is concave. 

real: xn(3,*), coords (3,*), xcentr(3) 


integer: nedges 

logical: contst 
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NORMTM 


DECLARATION ! 
FUNCTION : 
PARAMETERS 
in: 
out: 
real: 
SEE ALSO : 


Subroutine NORMTM (tm, tmnomi) 

Normalize tbe columns of a transformation matrix. 

tm A transformation matrix, 

tmnorm A normalized transformation matrix. 

tm(4,4) , tmnorm(4,4) 

PIPSRC 


Chapter Two TECHNICAL REFERENCES 2.109 



NORVEC 


DECLARATION ! 

FUNCTION : 

PARAMETERS 

in: 

real: 


Subroutine NORVEC (vector) 

Normalize a vector. 

vector The vector to be normalized. 
vector(3) 


\ 
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NRMAVE 


DECLARATION : 

FUNCTION : 

PARAMETERS 

in: 

out: 
real: 
Integer : 


Subroutine NRMAVE (nedges, polnor, avenor) 

Computes the average normal of all the normals of a polygon. 


nedges Number of vertices of the polygon. 

polnor Unaveraged normal array for polygon nodes (assumed 
to be unit normals) . 

avenor Average unit normal of the polygon. 

polnor (3 .nedges) , avenor(3) 

nedges 
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OPNFIL 


DECLARATION ! 

FUNCTION ! 

PARAMETERS 

in: 


out: 

integer : 
logical : 
character : 


Subroutine OPNFIL (prmpt, pstrng, fileid, stat, acc, frm, 
irec , iunit , ierror) 


Opens a disk file. 


prmpt 

pstrng 

fileid 

stat 

acc 

frm 


irec 


• TRUE, if filename should be prompted for. 

.FALSE, if fileid should be used as the filename. 

Character string containing prompt. 

Character file id if prompt - .FALSE. 

Status of the file to be opened. Must be an 
allowable file status, such as 'old', 'new', 
'scratch' or any other allowable status. 

Access of the file to be opened. Must be 
' sequential ' , or ' direct ' . 

Format of the file to be opened. Must be an 
allowable file format, such as 'formatted', 
'unformatted' , or 'binary' . 

Record length for direct access files. 


iunit Device logical number of file opened. 

ierror Error flag. 

—1 if OPNFIL was run successfully. 

"0 if OPNFIL was not run successfully. 


irec, iunit, ierror 


prmpt 

fileid*(*), pstrng*(*), stat*(*) , frm*(*) , acc*(*) 
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OUTBOX 


DECLARATION ! 

FUNCTION : 

PARAMETERS 

in: 

real: 

Integer: 

COMMON RTjQCKS: 


Subroutine OUTBOX (npart, tm, atribt) 

Displays a bounding box around part npart. 

npart Part number to display bounding box around, 

tm Transformation matrix. 

atribt Part attribute list information for part npart. 

tm(4,4), atribt(*) 
npart 

/CHFWAS/ 

/CLIMIT/ 

/CMEMRY/ 

/MASTER/ 

/CATTRI/ 
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PCHECK 


DECLARATION ! 

FUNCTION ! 

PARAMETERS 

in: 

out: 

real: 

integer: 


Subroutine PCHECK (nedge, xx, nornew, jconn, jpoin, nuraply) 

Divides a concave polygon into ntimply convex polygons . 

It is possible that varpe d concave polygons will not result 
iTL a division into convex polygons. 


nedge 

nornew 

XX 


Number of sides in original polygon. 

Normals at the nodes of the original polygon. 
Coordinate array of concave polygon. 


jconn 

jpoin 

numply 


Connectivity of convex polygons. 

Array of number of edges in new convex polygons . 
Number of polygons after subdivision. 


xx(3,*) 


j conn (vertmx+1 ,*), jpoin (vertmx+1) , nedge, ntimply, nornew 
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PERDST 


DECLARATION : Subroutine PERDST 

FUNCTION: Sets window based on perspective angle and distance. 

SHOULD ONLY BE CALLED IF AUTOCENTER IS NOT ON. 

Should be call ed if in perspective mode, after vou have 
modified ei ther the distance or perspective angle . 
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PIPLIN 


DECLARATION : Subroutine PIPLIN (sx, sy, ivxmin, ivymin, wxmin, wxmax, 

wymin, wymax, zmin, zmax, oldcor, polnor, 
oldfun, nodes, npolab, tm, atribt, nedges , 
ipart) 


FUNCTION : Transforms, clips, and maps polygons to screen coordinates, 

and outputs lines and polygons in line drawing mode. If 
bidden line is on, PIPLIN will store polygons and lines for 
further processing. 

PARAMETERS 


in: sx 

sy 

wxmin 

wxmax 

wymin 

wymax 

zmin 

zmax 

polcor 

tm 

atribt 

nedges 

nodes 

npolab 

ipart 

ivxmin 

ivymin 

oldcor 

polnor 

oldfun 


Window to viewport scale factor in x direction. 

Window to viewport scale factor in y direction. 

Minimum x window coordinate. 

Maximum x window coordinate. 

Minimum y window coordinate. 

Maximum y window coordinate . 

Distance from eye to near clipping plane. 

Distance from eye to far clipping plane. 

The coordinates of the polygon/line. 

Transformation matrix (This transformation matrix 
also transform coordinates from world to eye 
system) . 

Part attribute information for line or polygon. 

Number of vertices in current polygon or line. 

Array of node numbers for the polygon used for 
labeling. 

Polygon label number. 

Part number that line or polygon came from. Used 
for hidden line removal. 

Left viewport screen coordinate x. 

Bottom viewport screen coordinate y. 

The coordinates of the line or polygon. 

Normals of the polygon. Used with the feature 
option during hidden line. 

Scalar function values at the vertices. Used for 
contours . 
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(cont.) PIPLIN 


real: 

integer : 
COMMON BLOCKS ! 

SEE ALSO : 


sx, sy , wxmin, wymin, wxmax, wymax, zmin, zmax, 
polcor(3,vertmx+l), tm(4,4), atribt(*) , ivxmin, ivymin, 
oldcor(3,vertmx+l), polnor(3 ,vertmx+l) , oldfun(vertmx+l) 

nedges, nodes, npolab, ipart 


/DEVI/ 

/CATTRI/ 

/CFLAGS/ 


PIPSRC 

INQSCL 

INQPRT 

GETWND 

INQCNT 

GETCLP 

NORMAL 
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PIPSRC 


DECLARATION : 

FUNCTION ! 

PARAMETERS 

in: 


real: 

integer: 
logical : 


Subroutine PIPSRC (sx, sy, ivxmin, ivymin, wxmin, wxmax, 

wymin, wymax, zmin, ztnax, numvrt, polcor, 
polnor, polfun, tm, tmnorm, atribt, 
shdlen, shdmin, shdmax) 

Transforms, clips and maps to screen coordinates, and stores 
polygons for later processing by the hidden surface 
processor. 


sx 

sy 

wxmin 

wxmax 

wymin 

wymax 

zmin 

zmax 

numvrt 

polcor 

tm 


atribt 

shdlen 

tmnorm 

ivxmin 

ivymin 

polnor 

warped 

polfun 


Window to viewport scale factor in x direction. 
Window to viewport scale factor in y direction. 
Minimum x window coordinate. 

Maximum x window coordinate. 

Minimum y window coordinate. 

Maximum y window coordinate . 

Distance from eye to near z clipping plane. 
Distance from eye to far z clipping plane. 

Number of vertices in this polygon. 

Coordinates of the polygon. 

Transformation matrix. (This transformation matrix 
will also transform coordinates from world to eye 
system. ) 

Attribute information for the polygon. 

Shadow length. 

Normalized transformation array. 

Left viewport screen coordinate x. 

Bottom viewport screen coordinate y. 

Normals of the polygon. 

.TRUE, if checking for warped polygons on edge. 
Polygon function values. 


tm(4,4), atribt (*), polcor (3,*), polnor (3,*), sx, sy, wxmin, 
wymin, wxmax, wymax, zmin, zmax, tmnorm(4,4), ivxmin, ivymin, 
polfun(*) , shdlen 

numvrt 

warped 
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(cont.) PIPSRC 


COMMON BLOCKS ! /DEVI/ 

/CATTRI/ 

/CFLAGS/ 


SEE ALSO : PIPLIN 

INQSCL 
INQPRT 
GETWND 
INQFRN 
GETCLP 
NORMAL 
PCHECK 
NORMTM 


Chapter Two TECHNICAL REFEEIENCES 2.119 


POLFIL 


DECLARATION : 

FUNCTION : 

PARAMETERS 

in: 

real: 

integer: 


Subroutine POLFIL (nedges, ix, iy, r, g, b) 
Draws a filled polygon. 


nedges Number of edges in polygon to be output. 
ix,iy Screen coordinate arrays of the polygon. 
^^>6ib Color components (0.0 - 1.0) of the polygon. 

r. g, b 

nedges, ix, iy 
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POLSTA 


DECLARATION ; 

FUNCTION : 

PARAMETERS 

in: 


out: 


real: 
integer: 
SEE ALSO: 


Subroutine POLSTA (nedges, coords, wxmin, wxmax, wymin, 
wymax, polxmx, polxmn, pol 3 nnx, polymn, 
istat) 

Gets polygon maximums, minimums, and status (for x and y) . 
All, coordinates are in the eve coordinate system 


nedges Number of vertices in the polygon or line. 

coords Coordinate array for vertices. 

wxmin Minimum x window coordinate. 

wxmax Maximum x window coordinate. 

w 3 Tnin Minimtun y window coordinate. 

wymax Maximum y window coordinate. 

istat Status of the polygon. 

- 1 if trivially accept. 

- 2 if trivially reject. 

= 3 if must clip the polygon. 

polxmx Maximum polygon x coordinate, 

polxmn Minimum polygon x coordinate, 

polymx Maximum polygon y coordinate, 

polymn Minimum polygon y coordinate . 

wxmin, wxmax, wymin, wymax, polxmx, polxmn, polymx, polymn, 
coords (3, nedges) 

nedges, istat 

CLPPZE 

CLPPOL 

CLPLIN 

ZPLSTA 
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POLYS 


DECLARATION: 

FUNCTION: 

PARAMETERS 

in: 

real: 
Integer; 
COMMON BLOCKS : 

SEE AT-SO- 


Subroutine POLYS (npart, limits, tm, atribt) 

Takes all polygons in part npart, does pre-processing (such 
as smooth shading and vector arrows) and dumps them into the 
appropriate pipeline. 


npart 

limits 

tm 

atribt 


Part number to process . 

Part limits array. 

Transformation matrix. 

Part attribute list for part npart. 


atribt(*), tm(*,*) 


npart, limits 


/CATTRI/ 

/CLIMIT/ 

/CHFWAS/ 

/MASTER/ 

/MEMRY/ 


PIPLIN 

PIPSRC 
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PORMAN 


DECLARATION ! 

FUNCTION: 


Subroutine PORMAN (nedges, coords, order, plot) 

Determines if polygons are front or back facing, then flags 
back facing polygons for elimination. 


PARAMETERS 


in: nedges Number of vertices for this polygon. 

coords Coordinate information for this polygon, 

order Polygon ordering flag. 

- 0. if poorman is not on for the polygon being 

processed. 

- 1. if clockwise element ordering. 

- 2. if counterclockwise element ordering. 


out: plot If .TRUE., the polygon is front facing and therefore 

visible. 


real: 
integer: 
logical : 


coords ( 3 , nedges ) , order 

nedges 

plot 
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PROMPT 


DECLARATION : 

FUNCTION : 

PARAMETERS 

in: 

charactier : 


Subroutine PROMPT (txt) 

Outputs a character string to the display device. 


txt 


Character string that contains the required prompt. 


txt* 80 
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PRSPC 


DECLARATTON : 

FUNCTION : 

PARAMETERS 

in: 

real: 

COMMON BLOCKS : 
SEE ALSO : 


Subroutine PRSPC (coord) 

Transforms point to perspective viewing. 


coord x,y,z coordinate of point to transform according to 
perspective. The coordinates of the point are 
modified on return. 


coord(3) 


AEWSTF/ 

PRSSTF 


Chapter Two TECHNICAL REFERENCES 2.125 



PRSSTF 


DECLARATION : Subroutine PRSSTF 

FU NCTION : Sets up perspective parameters according to the look-at and 

look- from point. 

PRSSTF be called a fter the look-at and look- from point hava 
been establishe d, and before anv calls to PRSPC. PIPIN. or 
PIPSRC. 

COMMON BLOCKS : /VEWSTF/ 


SEE ALSO : PRSPC 

PIPLIN 
PIPSRC 
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PURGE 


DECLARATION : 

FUNCTION : 

PARAMETERS 

in: 

character : 


Subroutine PURGE (cpynam) 

Removes a call to an instance wherever listed in the 
hierarchical data structure. 

cpynam Instance name to be deleted, 
cpynam* (*) 
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PVEC 


DECLARATION : 

FUNCTION : 

PARAMETERS 

in: 


real: 

integer: 
COMMON BLOCKS ; 


Subroutine PVEC (point, ctm, dis , sx, sy, ivxmin, ivymin, 
wxmin, wymin, wxmax, wymax, zmin, zmax, 
zrange, polfun, atribt, node, npart, ipc) 

Creates and outputs displacement arrows , 


point 

dis 

sx 

sy 

ivxmin 

ivymin 

wjonin 

wxmax 

W3rmin 

wymax 

zmin 

zmax 

zrange 

polfun 

atribt 

node 

npart 

ipc 

ctm 


Coordinates at base of arrow. 

Displacement array at point. 

Window to viewport scale factor in x. 

Window to viewport scale factor in y. 

Left viewport screen, x coordinate. 

Bottom viewport screen, y coordinate. 

Minimum x window coordinate. 

Maximum x window coordinate. 

Minimum y window coordinate. 

Maximum y window coordinate. 

Distance from eye to near z clipping plane. 
Distance from eye to far z clipping plane. 
Distance between z clipping planes. 

Polygon function values. 

Attribute list of polygon containing point. 
Vertex number of point in polygon. 

Part number of polygon containing point. 
Arrow part number. 

Transformation matrix for polygon containing 
point. 


point(3), ctm(4,4), dis(3), sx, sy, ivxmin, ivymin, wxmin, 
wymin, wxmax, wymax, zmin, zmax, zrange, polfun(*) , atribt(*) 

ipc, node, npart 


/CATTRI/ 

/CHFWAS/ 

/CMEMRY/ 
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RDINIT 



DECLARATION : 

FUNCTION : 

COMMON BLOCKS: 



Subroutine RDINIT 

Initializes the graphics device, and initializes the common 
block /RESOLT/. 

/RESOLT/ 
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READMV 


DECLARATTQW r 

FUNCTION: 

PARAMETERS 

in: 

character : 
COMMON BTjOCKS ; 


Subroutine READMV (geofil, funfil, dspfil) 
Reads MOVIE. BYU files for database definition. 
READMV may be called many times . 


geofil Geometry file name, 

funfil Function file name, 

dspfil Displacement file name. 

geofil(*), funfil(*), dspfil (*) 

/CHFWAS/ 

/CLIMIT/ 

/CMEMRY/ 
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REDCHK 


DECLARATION ; 

FUNCTION ; 

PARAMETERS 

in: 

character: 
SEE ALSO; 


Entry REDCHK (filnam) 

Reads a checkpoint file. 

AH database descriptio ns defined bv vou before a REDCHK call 
will be deleted, because the checkpoint file will overwrite 
the existing database. 


filnam The name of the file to be read in for database 
definition. 


filnam(*) 

WRTCHK 
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RESET 


DECLARATION : Subroutine RESET 

FUNCTION: Initializes the global transformation matrix. 

SEE ALSO : INQGLB 

SETGLB 
ROTATE 
SCALE 
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ROTATE 


DECLARATION ; 

FUNCTION: 

PARAMETERS 

in: 

real: 
SEE ALSO : 


Subroutine ROTATE (rx, ry, rz) 

Performs global rotate about a right handed coordinate 
system. 


rx 

Rotation about 

ry 

Rotation about 

rz 

Rotation about 

rx, ry, 

rz 


RESET 

SETGLB 

SCALE 

INQGLB 


the x-axis in degrees, 
the y-axis in degrees, 
the z-axis in degrees. 
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RPLCOP 


DECLARATION : 

FDNCTION : 

PARAMETERS 

in: 

real: 

integer: 

COMMON BLOCKS : 
SEE ALSO : 


Subroutine RPLCOP (sordex, ctm, atlist) 

Replaces transformation and attribute information for an 
instance . 

sordex The instance sort number. 

ctm Transformation matrix for the instance. 

atlist Attribute list for the instance. 

atlist (maxatt) , ctm(4,4) 
sordex 

/CHFWAS/ 

/CLIMIT/ 

/CMEMRY/ 

EXTCOP 
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RPLGLB 



DECLARATION : Subroutine RPLGLB (glb4x4, glbatt) 

FUNCTION: Sets global attributes to those in the list coming in. 

PARAMETERS 

in: glb4x4 Global transformation matrix. 

glbatt Global attribute array, defined as follows: 


(1) “ Red background intensity (0-1). 

(2) - Green background intensity (0-1) . 

(3) - Blue background intensity (0-1). 

(4) - Window x minimum (world coordinate) . 

(5) - Window x maximum (world coordinate) . 

(6) - Window y center (world coordinate) . 

(7) - Perspective angle (degrees) . 

(8) — Distance. 

(9) - X look-from point. 

(10) - Y look-from point. 

(11) — Z look-from point. 

(12) — X look-at point. 

(13) - Y look-at point. 

(14) - Z look-at point. 

(15) - Near z clipping plane. 

(16) — Far z clipping plane. 

(17) — X minimum viewport (0-1) . 

(18) — X maximum viewport (0-1). 

(19) - Y center viewport (0-1). 

(20) — Near fog plane. 

(21) - Far fog plane. 

(22) — Light number. 

(23) - Light location flag. 

(24) — Light intensity. 

(25) — X position for light. 

(26) - Y position for light. 

(27) - Z position for light. 

22 - 27 are repeated for each light source. 


real: glb4x4(4,4), glbatt (*) 


COMMON BLOCKS: 



/CHFWAS/ 

/CMEMRY/ 
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RUNANI 


DECLARATION ; 
FONCTION ! 
PARAMETERS 
In: 

out: 

character: 
COMMON BLOCKS : 


Subroutine RUNAtJI (begfrm, endfrm, ierr) 
Runs the animation. 


begfrm Beginning point to start animation 
(keyframe. subframe) . 

endfrm Ending point to end animation (keyframe . subframe) . 


ierr Error flag. 

— 0 if the animation was run successfully. 

“ 1 if the animation was not run successfully. 

begfrm*10, endfrm*10 

/CMEMRY/ 

/DEVI/ 

/CLIMIT/ 

/CHFWAS/ 
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SAVTXT 


DECLARATION : 

FUNCTION : 

PARAMETERS 

in: 


out: 

real: 

integer: 
character: 
SEE ALSO: 


Entry SAVTXT (mesage, xsize, ysize, twodim, xpos, ypos, 
zpos, xang, yang, zang, r, g, b, xslant, n, 
nsav) 

Saves text string attributes. 

n Text string number, 

mesage The text string array, 

xsize X dimension factor, 

ysize Y dimension factor. 

twodim If .TRUE., message is 2-D. .False,, 3-D text 
strings. 

xpos X position of text string in world coordinate. 

yp°s Y position of text string in world coordinate, 

zpos Z position of text string in world coordinate, 

xang X directional vector, 

yang Y directional vector. 

zang Z directional vector or angle of text string if in 

2-d mode. 

r,g,b Red, green and blue color values. 

xslant Rotation about x-axis for 3-d text string in 

degrees. 

nsav Total number of stored messages. 

xsize, ysize, twodim, xpos, ypos, xang, yang, zang, r, g, b, 
xslant 

n, nsav 

mesage(80) 

INQTXT 
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SCALE 


DECLARATION ; 

FUNCTION: 

PARAMETERS 

in: 

real: 
SEE ALSO : 


Subroutine SCALE (sx, sy, sz) 
Performs global scale. 

sx Scaling in the x direction, 

sy Scaling in the y direction, 

sz Scaling in the z direction. 

sx, sy, sz 

RESET 

ROTATE 

SETGLB 

INQGLB 


Chapter Two TECHNICAL REFEEIENCES 


2.138 



SETBGC 


DECLARATION ! 

FUNCTION : 

PARAMETERS 

in: 

SEE ALSO: 


Entry SETBGC (red, green, blue) 

Set background color. 

All values are from 0 to 1. Values are adjusted to those 
actually found in th e color look-up table (if one is being 
used) ■ 


red Red intensity of background color, 

green Green intensity of background color, 
blue Blue intensity of background color. 


SETLUT 

ITABLE 

INQBGC 
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SETBOX 


DECLARATION : 

FUNCTION : 

PARAMETERS 

in: 

real: 
integer : 

SEE ALSO: 


Entry SETBOX (npart, cormax, cormin) 
Stores the x,y,z limits of a part. 


npart Part number. 

cormax Maximum x, y, and z coordinates of box. 

cormin Minimum x, y, and z coordinates of box. 

cormax(3) , cormin(3) 
npart 

INQBOX 
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SETCLP 


DECLARATION : 

FUNCTION : 

PARAMETERS 

in: 

real: 
SEE ALSO : 


Entry SETCLP (znear, zfar) 
Sets z clip information. 


znear 

zfar 


Distance from eye to nearest z clipping plane. 
Distance from eye to farthest z clipping plane. 


znear, zfar 


GETCLP 


Chapter Two TECHNICAL REFERENCES 2.141 



SETCNT 


DECLARATION : 
FDNCTION : 
PARAMETERS 
in: 
integer : 

SEE ALSO: 


Entry SETCNT (if lag) 

Sets number of contour levels. 


if lag Number of contour levels to be displayed, 

iflag 


INQCNT 
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SETCOL 


DECLARATION: 

FONCTTOW t 

PARAMETERS 

in: 

real: 


Subroutine SETCOL (r, g, b, errfac) 

Updates the current color to the specified color. 


r,g,b 

errfac 


New color components (0.0 - 1.0). 

Equal to 0.0 for dithering; - 0.5 all other times. 


r, g, b, errfac 
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SETCON 


DECLARATION : 

FUNCTION : 

PARAMETERS 

in: 

real: 
Integer : 

SEE ALSO: 


Entry SETCON (key, sordex, thecnt) 

Sets instance continuity at a keyframe for animation. 


key Key frame number. 

sordex Sort index number of the instance, 

thecnt The continuity value at keyframe key. 

thecnt 
key, sordex 

INQCON 
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SETDEF 


DECLARATION: 

Entry SETDEF (numcol, red, grn, blu) 

FUNCTION: 

Sets the red, green, and blue color components of color 
number numcol. 


All color 

values are from 0 to 1. 

PARAMETERS 



in: 

numcol 

Color number (1 to 6). 


red 

Red intensity of default color number numcol. 


grn 

Green intensity of a default color number numcol. 


blu 

Blue intensity of a default color n\imber numcol. 

real: 

red, grn, 

blu 

Integer: 

numcol 


SEE ALSO: 

GETDEF 
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SETDSP 


DECLARATION : 

FUNCTION: 

PARAMETERS 

in: 

real: 
SEE ALSO: 


Entry SETDSP (xvec, yvec, zvec) 

Sets the displacement direction cosine components that will 
be used with displacement fringes or contours. 


xvec 

X component 

yvec 

Y component 

zvec 

Z component 

xvec , 

jrvec , zvec 

INQDSP 



of direction vector, 
of direction vector, 
of direction vector. 
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SETDST 


DECLARATION : 

FDNCTION : 

PARAMETERS 

in: 

real: 

COMMON BLOCKS - 
SEE ALSO : 


Entry SETDST (dist) 

Sets tlie distance from the eye to the look at point. 

SETDST is only valid when software is in perspective angle- 
mode. and when auto center is off. The function of this 
routine can als o be obtained by adjusting the look- from 
point. 


dist 

dist 


Distance from eye to look-at point. 


AEWSTF/ 

INQDST 

ATFROM 

INQFLG 
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SETFLG 


DECLARATION ! 

FUNCTION ! 

PARAMETERS 

in: 


out: 
logical : 
character : 
COMMON BLOCKS ! 
SEE ALSO! 


Entry SETFLG (cflag, If lag) 
Sets global flags. 


cflag 

Key to 

what is being set, which is one of the 


following: 


'ALIA' 

Anti-aliasing flag. 


'SHDO' 

Shadow Flag. 


'AXLS' 

Axis are to be drawn. 


'BOUN' 

Draw bounding box instead of model. 


'BORD' 

Draw border. 


'CENT' 

Auto center flag. 


'COLO' 

Draw colored lines. 


'DISP' 

Displacements are performed. 


'DITH' 

Dithering status. 


'ELEM' 

Element labeling status. 


'FOUR' 

Four view status. 


'GLAS' 

Transparency status. 


'HAZE' 

Haze/fog option. 


'HIDD' 

Hidden line status. 


'LABE' 

Label contours flag. 


'LEGE' 

Display contour legend. 


'NODE' 

Node labeling status. 


'ONED' 

Warped polygons on edge status. 


'OVER' 

Overlay status. 


'PERA' 

Perspective or windowing toggle status 


'PERS' 

Perspective/orkographic status. 


'POLY' 

Polygon clipping performed. 


'POOR' 

Poorman status. 


'SHAD' 

Shaded images status . 


'SYMM' 

Symmetric contours or fringes status. 


'VECT' 

Vector arrows status. 


'WARP' 

Function warping status. 


'TEXT' 

Text display status. 


'TK41' 

Tektronix 4129 hardware status. 


'LABV' 

Label for views status. 


'PLYF' 

Polygon fill shaded images status . 

iflag 

.TRUE. 

or .FALSE, status of cflag. 

iflag 

.TRUE. 

or .FALSE, status of cflag. 

iflag 



cflag*(*) 


/CFIAGS/ 



INQFLG 
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SETFNC 


DECLARATTOW : 

FUNCTION : 

PARAMETERS 

in: 

real: 
Integer : 

SEE ALSO : 


Entry SETFNC (nlevel, valmin, valmax) 

Sets the nvmiber of color fringes to be used, and the minimum 
and maximum range for fringes . 


nlevel Number of function levels to be used, 
valmin Minimum value of color fringe, 

valmax Maximum value of color fringe. 

valmin , valmax 
nlevel 

INQFNC 
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SETFOG 


DECLARATION : Entry SETFOG (distl, dist2) 


FDNCTION : Sets the distance to the 

PARAMETERS 


in: 

distl 

Distance 

from 


dist2 

Distance 

from 

real: 

distl , 

dist2 


SEE ALSO: 

INQFOG 




nearest and farthest fog planes . 

eye to nearest fog plane, 
eye to farthest fog plane. 


Chapter Two TECHNICAL REFERENCES 2.150 



SETFRN 


DECLARATION! 

Entry SETFRN ( if lag) 

FUNCTION! 

Sets number of fringe levels to be displayed. 

PARAMETERS 


in: 

iflag Number of fringe levels to be displayed 

integer: 

iflag 

SEE ALSO: 

INQFRN 
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SETGLB 



SEE ATiiO ; INQGLB 
ROTATE 
SCALE 
RESET 



Chapter Two TECHNICAL REFERENCES 2,152 


SETLIN 


DECLARATION ; 

FUNCTION : 

PARAMETERS 

in; 

character: 


Subroutine SETLIN (cstyle) 

Updates the current linestyle to solid or dashed. 


cstyle Desired linestyle: 

- 'd' for dashed 

- 's' for solid. 


cstyle*(*) 
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SETLUT 


DECLARATION ? 

FUNCTION ? 

PARAMETERS 

in: 

character : 


Subroutine SETLUT (table) ~ 
Loads the color look-up table. 


table The desired look-up table. The default is 'c' , 
which is for a full color-ramped look-up table. 

table*(*) 
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SETMOD 


DECLARATION : 

FUNCTION : 

PARAMETERS 

in: 

character: 


Subroutine SETMOD (mode) 


Sets the display device to either graphics or alpha mode. 


mode The specified mode: 

— ' graphics ' to put device in graphics mode . 
* 'alpha' to put device in alpha mode. 

mode*(*) 
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SETPER 


DECLARATION : 

FUNCTION : 

PARAMETERS 

in: 

real: 

SEE ALSO : 


Entry SETPER (setang) 

Sets the perspective angle to the value specified. 

SETPER can only be called if the software is in the 
perspective angle mode. 

setang Perspective angle to be set in degrees, 
setang 

INQPER 

INQFLG 
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SETPRT 


DECLARATION : 

FUNCTION : 

PARAMETERS 

in: 

real: 

COMMON BLOCKS : 
SEE ALSO : 
SAMPLE CAT.!.- 


Entry SETPRT (xmin, xmax, ycen) 

Sets viewport boundaries . 

SETPRT calculat es minimum and maximum v values enforclntr a 
one-to-one aspect ratio. All c oordinates are normalized from 

Q to 1. SETPRT checks for illegal input, and will set the 

viewpo rt to the entire screen if illegal innnt is deteotert 


xmin Minimum x coordinate for viewport, 

xmax Maximum x coordinate for viewport, 

ycen Center y coordinate for viewport. 

xmin , xmax , ycen 

/RESOLT/ 

INQPRT 

Call SETPRT (0, -5,-75) 

Call sets up a viewport in the upper quarter of the screen. 
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SETRAT 


DECLARATION: 

Entry SETRAT (key, sordex, therat) 

FUNCTION: 

Sets instance rate at a keyframe for animation 

PARAMETERS 


in: 

key Frame number. 

sordex Sort index number of instance. 

therat The rate value at keyframe key. 

real: 

therat 

integer: 

key, sordex 

SEE ALSO: 

INQRAT 
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SETREF 


DECLARATION : 

FUNCTION: 

PARAMETERS 

in: 

real: 

integer: 

SEE ALSO ; 


Entry SETREF (ncolor, colfnc) 

Sets function value reference colors. 


ncolor Number of reference colors to be used, 
colfnc Array of colors at each function level. 

colfnc (3,maxlev) 
ncolor 

INQREF 
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SETSCL 


DECLARATION : 

FUNCTION: 


Entry SETSCL 

Sets window to viewport scale factors . 

SETSCL must be called before a call to TNOSCL. 


COMMON BLOCKS : /RESOLT/ 


SEE AT-SO - SETPRT 
INQPRT 
GETWND 
SETWND 
INQSCL 
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SETSCN 


DECLARATION : 

FUNCTION : 

PARAMETERS 

in: 

real: 

Integer: 

COMMON BLOCKS : 


Subroutine SETSCN (iy, ixbeg, ixend, r, g, b, errfac) 

Sends a segment of a scanline to the graphics screen. 

The gra phics device must be in graphics mode before this 
routine can be called. 


iy Y value of scanline. 

ixbeg Beginning x value of segment. 

ixend Ending x value of segment. 

r,g,b Color arrays for scanline segment. 

errfac Equal to 0.0 for dithering; - 0.5 all other times 

r(0:ixres), g(0:ixres), b(0:ixres), errfac 
iy, ixbeg, ixend 

/RESOLT/ 


C- ^ 
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SETSPL 


DECLARATION ; 

FUNCTION : 

PARAMETERS 

in: 

real: 
Integer : 

SEE ALSO : 


Entry SETSPL (key, sordex, thespl) 

Sets instance on spline flags for animation. 


key Key frame number. 

sordex Sort index number of the instance. 

thespl The spline flag: 

•• 0 for no spline. 

- 1 for spline. 

thespl 
key, sordex 

INQSPL 
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SETSTD 


DECLARATION : Entry SETSTD 

FUNCTION: Sets standard function reference colors. 
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SETSUB 


DECLARATION : 

FUNCTION : 

PARAMETERS 

in: 

integer : 
SEE ALSO : 


Entry SETSUB (keyfrm, nvimber) 

Sets number of subframes between keyframes. 


keyfrm Beginning keyframe number, 

nximber Number of subframes. 

keyfrm, number 

INQSUB 
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SETTEN 


DECLARATION: 

Entry SETTEN (key, sordex, theten) 

FUNCTION: 

Sets instance tension at a keyframe for animation. 

PARAMETERS 



in: 

key 

sordex 

theten 

Key frame nximber. 

Sort index number of the instance. 
Tension value at keyframe key. 

real: 

theten 


integer : 

key, sordex 

SEE ALSO: 

INQTEN 
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SETWND 


DECLARATION ? 

FUNCTION : 

PARAMETERS 

in: 

real: 

COMMON BLOCKS : 
SEE ALSO : 


Entry SETWND (xmin, xmax, ycen) 

Sets window bounds. 

SETWND calculat es minimum and maximum v values enforcinfr a 
one-to-one aspect ratio. 


xmin Minimum x world coordinate for window, 

xmax Maximum x world coordinate for window, 

ycen Center y world coordinate for window. 

xmin , xmax , ycen 

/RESOLT/ 

GETWND 
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SHRINK 


DECLARATION ! 

FUNCTION: 

PARAMETERS 

in: 


real: 

Integer: 


Subroutine SHRINK (shrk, nedges, polcor, xcentr) 

Moves the nodes of a polygon toward the polygon center . 
— ^QQ^dinat e array should close the polygon. 


shrk Shrink factor: 

0 - no shrink. 

1 - full shrink. 

nedges Number of polygon vertices. 

polcor Coordinate array for polygon. 

xcentr Coordinate array of polygon's center point. 

shrk, polcor(3, nedges) , xcentr(3) 
nedges 
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SMOCLR 


DECLARATION: Entry SMOCLR (nodbeg, nodend) 

FUNCTION: Clears the smooth shading routine. 

SMOCLR should be called for e a ch part that is smooth shadarf 

PARAMETERS 


in: 

nodbeg 

Node to 

begin smooth shading 


nodend 

Node to 

end smooth shading. 

integer: 

nodbeg, 

nodend 


SEE ALSO: 

SMOSTR 

SMOGET 
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SMOGET 


DECLARATION: Entry SMOGET (nedges, nodes, polnor) 

Function : Retrieves the smooth normals for a polygon. 

— ?M0GET — after all of the polygons in a part have been 
processed with SMOSTR 


PARAMETERS 

in: nedges 

nodes 


Number of edges in the polygon. 

Array of node numbers for the polygon. 


o'lb: polnor Smooth normal of each polygon vertex, 

real: polnor (3 .nedges) 

Integer: nodes (nedges) , nedges 


SEE AT -SO - SMOSTR 
SMOCLR 
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SMOSTR 


DECLARATTOW : 

FUNCTION: 

PARAMETERS 

in: 

real: 

integer: 

SEE ALSO : 


Entry SMOSTR (nedges, nodes, polnor) 

Averages normals for smooth shading. 

Call SM OCLR before making anv calls to SMOSTR 
You should call S MOSTR for each polygon in a part . 


nedges Number of edges in the polygon being smoothed, 
nodes Array of node numbers for the polygon, 

polnor Normal of each polygon vertex. 

polnor (3 ,nedges) 
nodes (nedges ) , nedges 

SMOCLR 

SMOGET 
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STCONG 


DECLARATTON : 

FUNCTIOW : 

PARAMETERS 

in: 

real: 

integer: 


Entry STCONG (key, icode, thecnt) 

Sets continuity value for spline animation of look- at or 
look- from point. 


key 

icode 

thecnt 


Keyframe number. 

1 — look at point, 2 — look from point. 

The continuity value at keyframe key (-1 to 1) 


thecnt 
key , icode 
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STOREL 


DECLARATION: 

Subroutine 

STOREL (ipart, nedges, polcor, polnor, 
nodes, npolab, atribt) 

polfun, 

FUNCTION: 

Loads a polygon for hidden line removal. 



INTHLR must be called previous to calline STOREL 

HTDT.TN 


should be 

called after all polygons have been orocessed tJ^^h 


STOREL. 



PARAMETERS 




in: 

ipart 

Part number this polygon comes from. 



nedges 

Number of edges in the polygon. 



numpol 

Polygon nvunber currently being processed. 


polcor 

Screen coordinates of the polygon. 



polnor 

Polygon normals at the vertices. 



polfun 

Polygon scalar values at the vertices. 



nodes 

Node number array for the vertices . 



npolab 

Polygon label number. 



atribt 

Part attribute list information for the 

polygon. 

real: 

polcor(3,*), polnor(3,*), polfun(*) , atribt(*) 


integer: 

numpol, nedges, nodes (*) 


COMMON BLOCKS: 

/CATTRI/ 

/CFLAGS/ 

/HIDSTF/ 

/KEEP/ 



SEE ALSO: 

INTHLR 

HIDLIN 
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STRATG 


DECLARATION: Entry STRATG (key, icode, therat) 

FUNCTION : Sets rate for global animation at keyframes. 

PARAMETERS 


in: key 


Keyframe number. 


icode Key to which global animation parameter is being 
set: 

1 — Global scales. 

2 - Global rotates. 

3 « Background color. 

4 - Window. 

5 - Perspective angle. 

6 - Distance. 

7 - Look- from point. 

8 - Look- at point. 

9 « Z clipping planes. 

10 - Viewport. 

11 - Fog planes. 

12 - Light #1. 

13 - Light #2. 

Continued for each light source, 
therat The rate value at keyframe key (0 to 1) . 


real: thespl 

integer: key, icode 


( 
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STSPLG 


DECLARATION : 
FDNCTTON : 

PARAMETERS 

in: 

real: 

Integer: 


Entry STSPLG (key, icode, thespl) 

Sets onspline flag for look-at or look- from point spline 
animation. 


key Keyframe number . 

icode 1 — look-at point, 2 — look- from point, 
thespl The spline value at keyframe key (0 or 1) . 

thespl 
key, icode 
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STTENG 


DECLARATION: 

Entry STTENG (key, Icode, theten) 

FUNCTION: 

Sets tension values for spline animation for look- at or look 
from point. 

PARAMETERS 



in: 

key 

Key frame number. 


icode 

1 — look-at point, 2 look- from point. 


theten 

The tension value at keyframe key (-1 to 1). 

real: 

theten 


Integer: 

key, icode 

SEE ALSO: 

INTENG 
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SUMMRY 


DECLARATION : Subroutine SUMMRY 

FUNCTION : Displays the global attributes set, 

COMMON BLOCKS : /CLIMIT/ 

/DEVI/ 

Aewstf/ 

/RESOLT/ 
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(cont.) TEXT 


COMMON BLOCKS : 


/CATTRI/ 

/CFLAGS/ 

/CLIMIT/ 

AEWSTF/ 
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TEXT 


DECLARATTON - 

FUNCTION ; 

PARAMETERS 

in: 


real: 

integer: 
logical : 
character : 


Subroutine TEXT (raesage, xsize, ysize, twodim, xpos , ypos, 
zpos, xang, yang, zang, r, g, b, atribt, 
xslant, glbflg, ierr) 

Generates and displays alphanumeric text. 


mesage 

xsize 

ysize 

twodim 

xpos 

ypos 

zpos 

xang 

yang 

zang 

r,g,b 

atribt 

xslant 

glbflg 

ierr 

xsize, 

xslant, 

ierr 


The text string to be displayed. 

X dimension factor. 

Y dimension factor. 

If .TRUE., 2-D text strings are generated. 

If .FALSE., 3-D text strings are generated. 

X position of text string in model coordinates. 

Y position of text string in model coordinates. 

Z position of text string in model coordinates. 

X directional vector coordinate. 

Y directional vector coordinate. 

Z directional vector coordinate (if 3-d). 

Angle of text string (if 2-d). 

Red, green, and blue color values for text string. 
Attribute list. 

Rotation about x-axis for 3-d text string in 
degrees. 

If .TRUE., xpos and ypos come in as screen 
coordinates . 

If ierr - 1, then a character not defined in the 
character font has been entered. 

ysize, xpos, ypos, zpos, xang, yzng, zang, atribt(*) , 
r, g, b 


twodim, glbflg 
mesage*80 
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TMPTS 


DECLARATION : 

FUNCTION : 


Subroutine TMPTS (tm, coord) 

Transforms an x,y,z point according to a transformation 
matrix. 


PARAMETERS 

in: tm 

coord 


Transformation matrix. 

Coordinate to be transformed. The coordinate is 
modified on return. 


real: tm(4,4), coord(3) 


Chapter Two TECHNICAL REFERENCES 


2.179 



TMPTSN 


DECLARATION ; 

FUNCTION : 

PARAMETERS 

in: 

real: 


Subroutine TMPTSN (tm, coord) 


Transforms a normal vector by a transformation matrix. 


tm Transformation matrix, 

coord Normal to be transformed. 

tm(4,4), coord(3) 
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TRAVRS 


DECLARATION : Subroutine TRAVRS (root, itask, sgorit, grsort, trndex, 

sgrcnt, sitcnt, gstart, matrix, sgrind, 
grpptr, sortdx, grprec, stkfms, atlist, 
stkiaa) 

FUNCTION: Traverses the groups and items structure for picture 

processing. 

PARAMETERS 


in: root 

itask 

sgorit 

grsort 

sgrcnt 

sitcnt 

gstart 

matrix 

sgrind 

grpptr 

sortdx 

grprec 

stkfms 

stkiaa 

atlist 


Root group to be displayed. 

Task flag: 

0 = auto -center. 

1 - process part for display. 

2 - write out geometry file. 

Subgroup or subitem flag array. 

Group sort array. 

Subgroup counter array. 

Subitem counter array. 

Group start array. 

Instance transformation (4x4) matrixes. 
Subgroups that have been processed array. 
Group pointer at recursive level array. 
Sort index array. 

Group recursion counter array. 

Stack of ctm's array. 

Atrribute stack. 

Attribute list transformation index array. 


real: matrix(4,4,maxins) , stkfms(4,4,maxrec) , 

atlist(maxiaa,maxins) , stkiaa(maxiaa,0:maxrec) 


integer: 


sgorit (maxins) , 
sgrcnt (maxgrp) , 
sgrind(maxrec) , 
grprec (maxgrp) , 


grsort (maxins) , trndex (maxins) , 
sitcnt (maxgrp) , gstart (maxgrp) , 
grpptr (maxrec) , sortdx(maxrec) , 
itask, root 
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(cont.) TRAVRS 


COMMON BLOCKS! 


/CATTRI/ 

/CHFWAS/ 

/CMEMRY/ 

/DEVI/ 

AEWSTF/ 
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TXTDIS 


DECLARATTQW ; 
FUNCTION : 
SEE ALSO: 


Entry TXTDIS 

Displays existing text strings. 

GENTXT 

TXTINT 
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TXTINT 


DECLARATION ! 
FDNCTION : 
SEE ALSO: 


Entry TXTINT 

Initializes the text string routines. 

TXTDIS 

GENTXT 
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WARPOL 


DECLARATION : 

FUNCTION : 

PARAMETERS 

in: 

out; 

real: 

Integer: 


Subroutine WARPOL (nedges, tmpcor, tmpnor, iconn, ipoin, 

numpol) 

Subdivides warped polygons that are partly front and partly 
back facing to the observer. 


nedges Number of vertices in the polygon, 
tmpcor Coordinate array of warped polygon, 
tmpnor Normals array of warped polygon. 

iconn Connectivity array after subdivision of warped 
polygon. 

ipoin Number of vertices in each subdivided polygon. 

numpol Number of polygons that the warped polygon was 
divided into. 

tmpcor(3,*), tmpnor(3,*) 

nedges, iconn(vertnix+l,*) , ipoin(*) , ntunpol 
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WRITMV 


DECLARATION : 

FONCTION : 

PARAMETERS 

in: 


real: 
Integer: 
COMMON BLOCKS : 
SEE ALSO: 


Subroutine WRITIiV (npart, limits, tm) 

Stores geometry information for writing a geometry file. 


Number of parts to be written to the geometry 
file . 

limits Part limits array, 

tm Transformation matrix for npart. 

limits(2,*), tm(4,4) 

npart 

/MASTER/ 

WRTDRV 

WRTGEO 
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WRTCHK 


DECLARATION : 

FUNCTION : 

PARAMETERS 

in: 

character : 
SEE ALSO : 


Entry WRTCHK ( f ilnam) 

Writes a checkpoint file. 

filnam The name of the file to be used as the checkpoint 
file. 

filnam(*) 

REDCHK 
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WRTDRV 


DECLARATION- 

Entry WRTDRV (geonam) 

FUNCTION: 

Opens file and initializes variables for a geometry file 
write . 

PARAMETERS 


in: 

geonam Name of the geometry file to be written. 

character: 

geonam(*) 

SEE ALSO: 

WRTGEO 
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WRTGEO 


DECLARATION : Entry WRTGEO 

FUNCTION: Writes out the geometry file after a tree traversal. 

SEE ATJiQ ; WRTDRV 
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ZPLSTA 


DECLARATION: 

FUNCTION : 

PARAMETERS 

in: 

out: 

real: 

integer: 

SEE ALSO: 


Subroutine ZPLSTA (nedges, coords, zmin, zmax.polzmx, polzmn, 
is tat) 

Gets polygon maxiinums, minlmuins , and status for z-clipping. 
All — coordinates are in the eve coordinate system. 


nedges Number of vertices in the polygon or line, 

coords Coordinate array for vertices . 

zmin Distance to nearest clipping plane, 

zmax Distance to farthest clipping plane. 

istat Status of the polygon: 

- 1 if trivially accept. 

- 2 if trivially reject. 

- 3 if must clip the polygon. 

polzmx Maximum polygon z coordinate, 

polzmn Minimum polygon z coordinate. 

coords, zmin, zmax, polzmx, polzmn, coords (3, nedges) 
nedges , istat 


CLPPZE 

CLPPOL 

CLPLIN 

POLSTA 
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Chapter 3 


COMMON BLOCKS 


chapter describes all of the cominon blocks used in the 
Raster Graphics Subroutine Package. They are listed in alphabetical order 
For each common block, each variable is defined, and the routines accessing 
the common block are listed. 

Information about common blocks is included so you will be aware 
of common coupled routines. For some applications, you will need to set up 
the common blocks before an application can call the subroutines that use 
them. 


Common Blocks for IntemAl Use ONLY 

Three common blocks are strictly for internal use. For these 
common blocks, we have only given the declaration. These common blocks are: 

/HIDSTF/ 

/PIXSTF/ 

/ZBUFER/ 

Make sure you don't use these common block names in subroutines you sunnlv 
yowself. J t't' j 


If you want more information about these common blocks, contact 
the Engineering Computer Graphic Lab at Brigham Young University. The 
address is in Appendix C. 


Chapter Three 


COMMON BLOCKS 3 . 1 



CATTRI 


COMMON BLOCK: /CATTRI/ (lORDER, IDFFUS, ICOLOR, INNODE, INPOLY, 

IFEATR, ISHRNK, IWARP, ICONTR, IDASHL, 
ISHADE, ISHADO, IGLASS, IFRNGE, ILIGHT, 
IDSPLC, IPOST, IFAST, IDRWAX, lAXORG, 
IROTAX, IVECTR) 


FUNCTION . Contains pointers into the instance attribute 
array. /CATTRI/ is set up in the subroutine 
GRAINT. 

PARAMETERS ! 

Points to the: 


Integer: lORDER 

IDFFUS 
ICOLOR 
INNODE 
INPOLY 
IFEATR 
ISHRNK 
IWARP 
ICONTR 
IDASHL 
ISHADE 
ISHADO 
IGLASS 
IFRNGE 
ILIGHT 
IDSPLC 
IPOST 
IFAST 
IDRWAX 
lAXORG 
IROTAX 
IVECTR 


Polygon ordering information. 
Diffused light. 

Color infonnatlon. 

Node numbering flag. 

Polygon numbering flag. 

Feature angle. 

Shrink factor. 

Warp vector. 

Contour information . 

Dashed line flag. 

Shading type flag. 

Shadow flag. 

Transparency information. 

Fringe flag. 

Light information. 

Displacement factor. 

Post flag. 

Poorman flag. 

Draw local axis flag. 

Local axis origin. 

Local axis rotation angles. 

Displacement vector arrows Scale 
factor . 
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(cont.) CATTRI 



COLORS MODTFM 

DEFALT OUTBOX 

DEFPRT PIPLIN 

DSPTXT PIPSRC 

GLBAXS POLOTL 

GRAINT POLYS 

LIGHTS PVEC 

LOCAXS SHOATR 

MODATT TRAVIN 

MODFRM TRAVRS 
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CFIAGS 


COMMON BLOCK 


FDNCTION 

PARAMETERS 


logical 


ROUTINES THAT CONTAIN 

CHKPNT 

COLORS 

DEBSOR 

DISALL 

DSPTXT 

EDGMAK 

EDGMKP 


: /CFLAGS/ (POLYGN, POORMN, HIDDEN, lALIAS, DITHER, 
LCOLOR, FOG, LCONTR, LFRING, LGLASS, 

LS, SHADW, PERSPC, WARPED. LABNOD, LABELE, 
FSTHID) 


: Contains system global flags. 


.TRUE. 

if doing: 

POLYGN 

Polygonal data. 

POORMN 

Poorman. 

HIDDEN 

Hidden line removal. 

lALIAS 

Anti - alias ing . 

DITHER 

Dithering 

LCOLOR 

Colored lines. 

FOG 

Fog/haze . 

LCONTR 

Contours . 

LFRING 

Fringes . 

LGLASS 

Transparency . 

LSHADW 

Shadows . 

PERSPC 

Perspective . 

WARPED 

•TRUE, if checking for 
polygons . 

LABNOD 

Node labeling. 

LABELE 

Element labeling. 

FSTHID 

Polygon fill. 


warps on edge 


/CFLAGS/ 


EDGSHD 

PAINT 

FLAGIT 

PIPLIN 

FOURVW 

PIPSRC 

GLBAXS 

POLOTL 

INTSEC 

POLOUT 

LOCAXS 

PREALI 

MAKSHA 

SEGGEN 


Chapter Three COMMON BLOCKS 3.4 



CHFtfAS 


COMMON BIjOCK : 

FUNCTION : 

PARAMETKRS 

Integer : 


/CHFWAS/ (ILSINT, ILSLOC 
IPRCOL, ICOPIN, 
ISGITO, IGRSOR, 
ISORDX, INCOPY, 
ISGRCN, ISITCN, 
IGRPPT, ISORTD, 
IGRNAM, ITMNAM, 
lANIGL) 


ILSXYZ, ILSNEW, ISHDIN 
ITRNDE, ISGORI, IGRPDE, 
IGRUPA, ICHIDA, lORGPA, 
INPL, lALIST, IMATRI, 
IGSTAR, ITSGIC, ISGRIN, 
IGRPRE, ISTKFM, lAASTK, 
ICPNAM, IPSTFL, IFWANI , 


Contains pointers into memory. 


Points to the: 


ILSINT 

Light source intensities. 

ILSLOC 

Light source location flags. 

ILSXYZ 

Light source coordinates. 

ILSNEW 

Modified light source coordinates. 

ISHDIN 

Shadow intensities. 

IPRCOL 

Part color array used in the hidden line 
removal algorithm. 

ICOPIN 

Instance copies . 

ITRNDE 

Transformation index. 

ISGORI 

Child numbers. 

IGRPDE 

Parent group. 

ISGITO 

Child flag array. 

IGRSOR 

Group sort array. 

IGRUPA 

Root group array. 

ICHIDA 

Child array. 

lORGPA 

Item or group flag array. 

ISORDX 

Sort array. 

INCOPY 

Copy number. 

INPL 

Part limit array. 

lALIST 

Instance attribute lists. 

IMATRI 

Instance transformation matrices. 

ISGRCN 

Subgroup counter array. 

ISITCN 

Subitem counter array. 

IGSTAR 

Group start array. 

ITSGIC 

Child test array. 
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(cont.) CHFWAS 


ISGRIN 

Subgroup counter array. 

IGRPPT 

Group pointer array. 

ISORTD 

Recursion sort index array. 

IGRPRE 

Group recursion test array. 

ISTUFM 

Transformation stack array. 

lAASTU 

Attribute stack array. 

IGRNAM 

Group names array. 

ITMNAM 

Item names array. 

ICPNAM 

Instance names array. 

IPSTFL 

Instance post flag array. 

IFWANI 

Starting unit number for instance 
animation. 

lANIGL 

Unit number for global animation. 


ROUTINES THAT CONTAIN 

/CHFWAS/ 



ADDCOL 

GETITM 

INTHDP 

PURGE 

ADDFRM 

GLBACT 

INTHID 

PVEC 

ANIDRV 

GRAINT 

INTSHA 

READMV 

BEGANI 

HIDSUR 

LITSRC 

REDGLB 

CLRANI 

HUDGRP 

MAKSHA 

RPLCOP 

COLORS 

HUDITM 

MODIFY 

RPLCOR 

COPNUM 

HUGCOP 

NEWANI 

RPLGLB 

DISALL 

HUGSOR 

OPNANI 

RUNANI 

FRMONE 

HUSORT 

OUTBOX 

SHOATR 

GETATT 

RUSSIA 

POLYS 

TRAVIN 

GETCOP 

INQLIT 

POSFRM 

TRAVRS 

GETGRU 

INQUIR 

PRGRUN 

WRTGLB 
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CLIMIT 


COMMON BLOqK: /CLIMIT/ (MAXITM, MAXINS, MAXGRP, MAXMEM, MAXNOD, 

MAXPOL, MAXVER, MAXREC, MAXUSE, MAXCAL, ’ 
MAXCHR, MAXIAA, MAXLIT, NP, N J , NPT 
NCON, NPNEW) 

FUNCTION: Contains system limits. 

PARAMETERS 


integer: MAXITM 

Maximum number 

of 

MAXINS 

Maximum number 

of 

MAXGRP 

Maximum number 

of 

MAXMEM 

Maximum amount 

of 

MAXNOD 

Maximum number 

of 

MAXPOL 

Maximum number 

of 

MAXVER 

Maximum ntomber 

of 

MAXREC 

Maximum number 
allowed. 

of 

MAXUSE 

Maximum amount 

of 

MAXCAL 

Maximum number 
structure . 

of 

MAXCHR 

Maximum number 

of 

MAXIAA 

Maximtun number 
list. 

of 

MAXLIT 

Maximum number 

of 


NP 

NT 

NPT • 
NCON 
NPNEW 


Number of parts read in. 

Number of nodes read in. 

Number of polygons read in. 

Number of nodes in connectivity list. 

New number of parts found following 
tree traversal. 
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(cont.) CLIMIT 


ROUTINES THAT CONTATM /CT.TMTT^ 


ACTIVE DISALL 
ADDCAL DSPTXT 
ANILIT EXTCOP 
BEGANI FRMONE 
CATIAA GEOMOV 
CHKPNT GLBAXS 
DEFALT GRAINT 
DEFINE HUACAL 
DEFPRT HUDCAL 
DELETE HUPGRP 


HUPITM MAKSHA 

HUS OR MODATT 

INI LIT MODIFY 

INITGI MODTFM 

INTCAL OUTBOX 

INTSHA POLYS 

LIGHTS PRGRUN 

LIMITS PURGE 

LITSRC READMV 

LOCAXS REDLIT 


RPLCOR 

RPLCOP 

RUNANI 

SHDHEX 

SHOATR 

SUMMRY 

TRAVIN 

TRAVRS 

TRVCOP 

WRTLIT 
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CMEMRY 


COMMON BLOCK : /CMEMRY/ ( MEMORY (MXMEM) ) 

FDNCTION: Contains the data base for the program. 

You should use / CHFWAS/ as pointers Into memory to 
extract information . 

PARAMETERS 


integer/real : MEMORY 


The data base . 


ROUTINES THAT CONTAIN /CMEMRY/ 


ADDCAL 

GETGRU 

ADDFRM 

GETITM 

ANIDRV 

GLBACT 

BEGANI 

GRAIN! 

CHKPNT 

HIDSUR 

CLRANI 

HUDGRP 

COLORS 

HUDITM 

COPNUM 

HUGCOP 

DISALL 

HUGSOR 

EXTCOP 

HUSORT 

FRMONE 

HUSSTA 

GETATT 

GETCOP 

INQLIT 


INQUIR 

PURGE 

INTHDP 

PVEC 

INTHID 

READMV 

INTSHA 

REDGLB 

LITSRC 

RPLCOP 

MAKSHA 

RPLCOR 

MODIFY 

RPLGLB 

NEWANI 

RUNANI 

OPNANI 

SHOATR 

OUTBOX 

TRAVIN 

POLYS 

TRAVRS 

POSFRM 

WRTGLB 
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HIDSTF 


In the hidden algorithm: 

Cp^ON BLOCK: /HIDSTF/ (EDGPNT, lOFFST, IBUCKY, IFREE, SHDPNT, 

lOFSHD, ISHADO, ISHADY. lAVAIL) 


In the hidden line algorithm: 


COMMON /HIDSTF/ 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 

& 


IP0LST(MAXP0L+1) , 
XHOLD(MAXEDG) , 

YHOLD(MAXEDG) , 

ZHOLD(MAXEDG) , 

CCONT(MAXEDG) , 
NODNUM(MAXEDG) , 
SURF(ll.MAXPOL) , 
PGRID(3,MAXCOR), 
JNUMBR(MAXCOR) , 
JVECLS(2,MAXVEC) , 
JVECVP(MAXVEC) , 
JVTYPE(MAXVEC) , 

VECTOR ( 9, MAXVEC) , 
JVP(4,MAXVEC) , 

JXYS (MXGRID , MXGRID , MXBSUR) , 
JXYV(MXGRID,MXGRID,MXBVEC) , 
XLINE(4,MAXSEG) 


FONCTION : For internal use for the hidden line and hidden surface 

algorithms , 

If you wa nt more information on this common blocks 
should c ontact The Engineering Computer Graphics TaVt 
Brigham Young University . 


ROUTINES THAT CONTAIN HIDSTF ; 


CLENUP 

HIDSUR 

LBLNOD 

DEBSOR 

HSHEDG 

LODCNT 

DMPVEC 

HSHNOD 

LODINA 

EDGMKP 

INTHD2 

LODSHD 

GENCNT 

INTHDP 

PREALI 

GLSSRT 

INTHID 

SEGGEN 

HIDLIN 

INTHLR 

UPDATE 

HIDSRP 

LBLELE 
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KEEP 


COMMON BLOCK : /KEEP/ (NUMPOL, NUMPLS) 

FUNCTION : Contains the internal polygon ntunbers for opaque and 

shadow polygons used for hidden surface and line 
removal . 


PARAMETERS 

integer: NUMPOL 

NUMPLS 


Internal opaque polygon number. 
Internal shadow polygon number. 


ROUTINES THAT CONTAIN /KRF.P/ 

HIDLIN 

INTHLR 

INTHDP 

INTHID 

POLOUT 

SHDOUT 
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MASTER 


COMMON BTjQCK ; 
FUNCTION : 
PARAMETERS 
real; 
integer : 


real; 


ROUTINES THAT 

CHKPNT 

GEOMOV 

LIMITS 

OUTBOX 

POLYS 

SUMMRY 

WRITMV 


/MASTER/ (COORDS, ICONEC, NUMVRT, FUNVAL, DSPVAL) 
Contains geometric information. 


COORDS Coordinate Array. 

ICONEC Connectivity Array. 

NUMVRT Number of vertices in each polygon 

array . 

FUNVAL Function values at the nodes. 

DSPVAL Displacement values at the nodes. 

CONTAIN /MASTER/ 
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PIXSTF 


COMMON BLOCKS : /PIXSTF/ (IBUCKX, IFREEX) 

FUNCTION; For internal use in the hidden surface removal algorithm 
during anti-aliasing. 

If you want more i nformation on this common block 
contact Engineering Computer Graphics Lab. Brigham Younpr 
University . 


ROUTINES THAT CONTAIN /PIXSTF/ 

ALIGLS 

DEBSOR 

INTHID 

STRPIX 
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RESOLT 


COMMON BLOCK ! 
FUNCTION : 


PARAMETERS 


/RESOLT/ (IXRES, lYRES) 

Contains the x and y resolution of the display device. 
/RESOLT/ is set up in RDINIT . 


integer: IXRES 


lYRES 


ROUTINES T HAT CONTAIN /RESOLT/ 

CENTER HIDSUR 
CHKPNT LODINA 
FOURVW LODSHD 
GLBAXS PAINT 


The X resolution of the display device. 
Resolution starts at zero, so a device 
with 1024 pixels should have IXRES - 
1023. 

The y resolution of the display device. 


SUMMRY 

VEWPRT 

WINDOW 

WRTGLB 
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VEWSTF 


COMMON BLOCK: 

AEWSTF/ 

(AT, FROM, ZO, VIEWMT) 

FUNCTION: 

Contains 

the viewing parameters. 

PARAMETERS 



real: 

AT 

The look-at point. 


FROM 

The look- from point. 


ZO 

The distance to the perspective projection 
plane . 


VIEWMT 

The viewing transformation matrix. 


ROUTINES THAT CONTAIN /VTOSTF/ 


ATFROM 

INTLIT 

CENTER 

PRSPC 

CHKPNT 

PRSSTF 

DSPTXT 

SHDCTR 

GLBAXS 

SHDHEX 

GRAINT 

TRAVRS 

INQLAF 
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ZBUFER 


COMMON BLOCK : /ZBUFER/ IBUF 

FUNCTION . For internal use in the hidden surface algorithm. 

If you want more information on this common block. 
contact Engineer ing Computer Graphics Lab. Brigham 
Young Univeristv. 


ROUTINES THAT CONTAIN /ZKTTFKR/ 

ALIGLS 

CLRBUF 

DEBSOR 

INSSEG 

PAINT 

SHADOW 
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Chapter Four 


INCLUDE FILES 


This cnapter explains the content of each of the include files needed 
for the Raster Graphics Display Library. The include files contain 
parameters controlling site and global control, which you should edit to fit 
your needs . 

The subroutine package performs error checking on all arrays that are 
dimensioned by the parameters in the include files. Error messages will 
refer you to specific parameters in an include file. 


Chapter Four INCLDDE FILES 4.1 



ANIM.INC 


INCLUDE BLOCK: 

ANIM.INC (MAXFRM, ISTART, ISTGLB, MAXCOM) 

FUNCTION: 

Contains the variables that define parameters for 
animation. 

PARAMETERS 


MAXFRM 

The maximum number of key frames that can be 
defined. 

ISTART 

Starting logical unit number for disk access for 
instance animation. 

ISTGLB 

Logical unit nxamber for disk access for global 
animation. 

MAXCOM 

The maximxim number of commands defining a key 
frame. 


ROUTINES THAT USE ANIM-TNC . 


ANIDRV 

CHKPNT 

CTRLGL 

DOSPLN 

GETATT 

MODGLB 

MOVMNT 

OPNANI 

POSFRM 

RUNANI 

SPLNGL 
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CVER.INC 



CVER.INC (VERTMX) 


FUNCTION : 

PARAMETERS 


Contains the variable that defines the maximuin 
number of vertices in a polygon. 


VERTMX The maximuin number of vertices in a polygon. 


ROUTINES 

THAT CONTAIN 

CVER.INC. 


CHECK 

GLBAXS 

PIPLIN 

SHDHEX 

CLPLZE 

HIDSUR 

PIPSRC 

SHDOUT 

CLPPOL 

LINSEC 

POLYS 

SHDTRN 

CLPPZE 

LOCAXS 

PRESUR 

SPLITP 

DSPTXT 

MAKSHA 

PROCHL 

STACK 

GRAINT 

OUTBOX 

ROLL 

TESTP 

GENCNT 

PCHECK 

SEND 

WARPOL 
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fnct.inc 


ROUTINES 

AFNCTN 

CHKPNT 

CNTBAR 

COLORS 

DMPVEC 


INCLUDE BLOCK! 


fnct.inc (MAXLEV, MXCLEV, MXCSEG) 


FUNCTION: Contains variables that control fringes and 

contours . 


The soft ware will print error messages if th^sp 
parameters are exceeded. 


PARAMETERS 


MAXLEV Maximum nximber of function levels that can be 
defined for fringes and contours . 

MXCLEV Maximum number of separate contour strings at the 
same contour level. 

MXCSEG Maximum number of contour vectors in a contour 
level. 


THAT CONTA IN FNCT.INC : 


DRVTXT 

LODCNT 

FRNBAR 

ORDCNT 

FUNCTN 

PRGRUN 

GENCNT 

PROCHL 

HIDLIN 

PVEC 
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hidn.inc 


INCLUDE BLOCK! 


FUNCTION : 

PARAMETERS 

lAWRT 

MAXPOL 


MAXEDG 

MAXCOR 

MAXVEC 



MXGRID 

MXBSUR 

MTABLE 

MXRESX 

MXRESY 

MAXFRC 


MAXFIL 


LITCST 

NUMSHD 


HIDN.INC (lAWRT, MAXPOL, MAXEDG, MAXCOR, MAXVEC, 
MXGRID, MXBSUR, MTABLE, NXRESX, MXRESY,’ 
MAXFRC, MAXFIL, LITCST, NUMSHD) 

Contains the variables defining maximuns for picture 
processing. 


Average number of vertices in a polygon 
(approximate) . 

Maximum number of polygons in the scene. MAXPOL is 
used in the visible line and surface algorithms . 
Regular line drawings are not affected. 

Maximum number of edges in the scene. MAXEDG is 
defined to be MAXPOL* lAWRT . 

Maximum number of vertices (nodes) in the scene. 

Maximum number of line segments in the scene. 

MAXVEC is used for hidden line removal . 

Maximum number of grid cells in X and Y. MXGRID is 
used for hidden line removal. 

Maximum number of polygons in a bucket. MXBSUR is 
used for hidden line removal. 

Maximum length of the hashing table. MTABLE is used 
for hidden line removal. 

Maximum resolution of the display device in the x 
direction. 

Maximum resolution of the display device in the y 
direction. 

Maximum number of pixel fractions on a scan line for 
snti-allasing. MAXFRC is used by the hidden surface 
algorithm. 

Length of the array used for the painters hidden 
surface algorithm. 

Maximum number of lights casting shadows . 

Maximum number of shadow polygons that must be 
stored in the shadow edge list array. 
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(cont.) HIDN.INC 


ROUTINES THAT CONTAIN HIDN.INC. 


ANTALI 

CLENUP 

CLRBUF 

DEBSOR 



DMPVEC 

EDGMKP 

FRNBAR 
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MOVL.INC 


INCLUDE BLOCK ! 
FUNCTION : 
PARAMETERS 


lOUT 

IIN 

LUN 

LUNl 


MOVL.INC (lOUT, IIN, LUN, LUNl) 

Contains logical unit numbers for file access . 


Logical unit numbers for writing to the terminal. 
Logical unit number for reading from the terminal 
Logical unit nvimber for disk file access. 

Another logical unit mamber for disk file access. 


ROUTINES THAT CONTAIN MOVT.TNC 

GETXT 

OPNFIL 

PROMPT 
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mstr.inc 


INCLUDE BLOCK: 


FUNCTION : 

PARAMETERS 

MXNODE 

MAXCON 

MXPOLY 

LITNUM 

ITMNUM 

INSNUM 

IGRPNM 

IRECNM 

MAXPRT 

MAXATT 

MXMEM 

CONST 


MSTR.INC (MXNODE, MAXCON, MXPOLY, LITNUM, ITMNUM, 
INSNUM, IGRPNM, IRECNM, MAXPRT, MAXATT,’ 
MXMEM, CONST) 

Contains the variables that define system wide 
parameters . 


Maximum number of coordinates that can be read 
into the data base. 

Maximum number of nodes in the connectivity list 
that can be read into the data base. 

Maximiam number of polygons that can be read into 
the data base. 

Maximum number of light sources that can be 
defined. 

Maximum momber of items that can be defined. This 
corresponds to the maximum number of parts that 
can be defined. 

Maximum number of instances that can be defined. 

Maximum number of groups that can be defined. 

Maximum number of levels in the hierarchical tree 
structure . 

Maximum number of parts in the scene. 

Length of the attribute list for an instance. 

Length of the array containing the data base. 

A constant to generate standard ASCII numbers for 
characters . 
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ROUTINES THAT CONTAIN MSTR TWn 


ADDCAL 

DRVTXT 

ADDFRM 

DSPTXT 

ANIDRV 

EXTCOP 

BEGANI 

EXTCPl 

BNDBOX 

FOURVW 

CKKPNT 

FRNBAR 

CLEIANI 

GEOMOV 

CNTBAR 

GETATT 

COLORS 

GLBACT 

COPNUM 

GETCOP 

DISALL 

GETGRU 

DMPVEC 

GETITM 

DOSPLN 

GRAIN! 


HIDSUR 

HAKSHA 

HUDGRP 

MODFRM 

HUDITM 

MODIFY 

HUGCOP 

MOVMNT 

HUGSOR 

NEWANI 

HUSORT 

OPNANI 

RUSSIA 

OUTBOX 

INQLIT 

POLYS 

INQUIR 

POSFRM 

INTHDP 

PROCHL 

INTSHA 

PURGE 

LIMITS 

PVEC 

LITSRC 

READMV 


ElEDGLB 

REDONE 

RPLCPl 

RPLGLB 

RUNANI 

SHOATR 

SPLNGL 

SUMMRY 

TRAVIN 

TRAVRS 

WRITMV 

WRTGLB 

WRTONE 
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USER, INC 


FUNCTION : 

PARAMETERS 


Contains the variables defining the length of character 
strings for user responses and database names. 


LNSIZE The maximum length of an input character string. 

MXCHAR The maximum length of a data base name. 


ROUTINES THAT CONTAIN USER -INC , 

GRAINT 

SHOATR 
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Appendix A 
LU«C NAP 


This chapter contains the link map for MOVIE. BYU version 6. MOVIE. BYU 
is a general purpose computer graphics display system that uses RGDL 
software. The purpose of this chapter is to aid users that do not have 
library utilities on their computers . 

The link map shows which routines call other routines, and is in the 
following form: 

ROUTINEl 

R0UTINE2 

R0UTINE3 

R0UTINE4 

R0UTINE2* 

ROUTINES 

Here, the program flows in the following way: 

1. ROUTINEl calls R0UTINE2. 

2. R0UTINE2 calls ROUTINES. 

3. ROUTINES does not call anything, and returns to R0UTINE2 when 
finished. 

4. R0UTINE2 calls R0UTINE4. 

5. R0UTINE4 does not call anything, and returns to R0UTINE2 when 
finished. 

6. R0UTINE2 when finished returns to ROUTINEl. 

7. ROUTINEl calls R0UTINE2 again. The calls that R0UTINE2 makes have 
already been defined, so the line is tagged with a *. 

8. R0UTINE2 when finished returns to ROUTINEl. 

9. ROUTINEl calls ROUTINES. ROUTINES has been defined previously, 
but does not call any other routines; therefore, ROUTINES is shown 
without the *. 

10. ROUTINES when finished returns to ROUTINEl, which when finished 
terminates the program. 

MOVIE. BYU contains several routines that are not part of the subroutine 
library. Be aware that this link map is not for you to actually use--it is 
just for looking. 
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AAMAIN 

SETUP 

INHARD 

LFSET 

INSOFT 

OPNFIL 

GETXT 

FNAME 

DELSTR 
FNAME * 

FNDCOM 

INMENU 

OPNFIL * 

FNDCOM 

TREE 

PRGRUN 

FNDMEN 

GETATT 

GETCOP 

GETCOl 

TRVCOP 

GETGRU 

GETGRl 

GETITM 

GETITl 

GETAGR 

TRAVIN 

CATIAA 

CATIAA 

DEFPRT 

GETDEF 

ANFILI 

GRAINT 

SETCNT 

SETFRN 

SETDSP 

ASTDSP 

SETSTD 

ASTSTD 

TXTINT 

RESET 

INT4X4 

SETGLB 

RDINIT 

SETBGC 

SETLUT 

INITGI 

DEFALT 

DEFINE 

GETGRU * 

NEWGRP 

INT4X4 

SETPRT 

LITSRC 

SETLIT 
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CLRANI 

ANFILS 

SETMOD 

ERASE 

SETMOD 

PAUSE 

GETXT * 

PAUSE * 

SETMOD 

ERASE 

SETMOD 

INQPRT 

SETPRT 

SETMOD 

ERASE 

SETMOD 

SETPRT 

GETAGR 

GETGRU * 

GETXT * 

ACTGRP 

GETGRU * 

FOURVW 

INQPRT 

INQIAF 

INQBGC 

SETPRT 

ATFROM 

INT4X4 

GTUTRN 

GTUROY 

INT4X4 

MUL4X4 

MOV4X4 

GTUROX 

INT4X4 

MUL4X4 

M0V4X4 

MUL4X4 

M0V4X4 

DISALL 

PRSSTF 

GETAGR 

INQCNT 

INQFRN 

TRAVRS 

INQGLB 

INT4X4 

M0V4X4 

GLBAXS 

M0V4X4 

GETWND 

INQSCL 

INQPRT 

GTUTRN 
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INQBGC 

PIPLIN 

TMPTS 

CLPPZE 

ZPLSTA 

CLPMAX 

STFITP 

NORVEC 

CLPMIN 

STFITP 

NORVEC 

CLPLZE 
ZPLSTA 
CLPCOR 
PRSPC 
PORMAN 
CLPPOL 
POLSTA 
CLPMIN * 
CLPMAX * 
POLOTL 
MAPPTS 
ZSTRMM 
STOREL 
NRMAVE 
SETCOL 
CNTRPT 
MAPWV 
MOVABS 
DRWABS 
CHRNUM 
DISTXT 
SETCOL 
CLPLIN 
POLSTA 
CLPCOR 
MAPWV 
MOVABS 
DRWABS 
PIPLIN * 

MUL4X4 
CATIAA 
M0V4X4 
GTUTRN 
LOCAXS 
GETWND 
INQSCL 
INQPRT 
INT4X4 
GTUROX * 

GTUROY * 

GTUROZ 

INT4X4 

MUL4X4 

M0V4X4 
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GTUTRN 
MUL4X4 
PIPLIN * 
MUL4X4 
M0V4X4 
GTUTRN 
CATIAA 
DEFPRT * 

HRDWAR 
WRITMV 
POLYS 
INQCNT 
INQFRN 
GETWND 
GETCLP 
ISHDDS 
INQSCL 
INQPRT 
AROCLR 
SMOCLR 
, INQARP 
HRDWAR 
INQDSP 
CNTRPT 
NORMAL 
SMOSTR 
SMOGET 
SHRINK 
NORMTM 
M0V4X4 
NORVEC 
PCHECK 
STACK 
PUSH 
NRMAVE 
NORVEC 
LOKROT 
INT4X4 
MUL4X4 
TMPTS 
TESTP 
POPP 
NORANG 
CHECK 
SEND 
ROLL 
PUSH 
SEND 
NORANG 
LINS EC 
BOX 
SPLITP 
PUSH 
ROLL * 
SEND 
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TMPTS 
TMPTSN 
HRDWAR 
PIPSRC 
TMPTS 
TMPTSN 
WARPOL 
CNTRPT 
FORMAN 
MAKSHA 
SHDHEX 
SHDTRN 
CLPPZE * 

PRSPC 
CLPPOL * 

SHDOUT 
MAPWV 
EDGSHD 
LODSHD 
ZSTRMM 
LODSHD * 

PRSPC 
CLPPOL * 

SHDOUT * 

CLPPZE * 

PRSPC 
CLPPOL * 

NRMAVE 
POLOUT 
COLORS 
INQLEV 
CNTRPT 
LIGHTS 
FRINGE 
MAPWV 
EDGMKP 
EDGMAK 
LODINA 
ZSTRMM 
LODINA * 

AROCHK 

PVEC 

ANQDSD 

ANQDSP 

ARST 

ARSCAL 

ARROTA 

ROTMAT 

MATR 

MATR 

ARTRAN 

MATR 

ANQLEV 

FRINGE 

SETARC 
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NORMTM * 
ISHDDS 
PIPSRC * 
PIPLIN * 
LODCOL 
CNTRPT 
SHRINK 
CNTRPT 
NORMAL 
TMPTS 
HRDWAR 
PIPLIN * 
AROCHK 
PVEC * 
SETARP 
OUTBOX 
GETWND 
GETCLP 
INQSCL 
INQPRT 
, INQBOX 
PIPLIN * 
MOV4X4 
GTUTRN 
MUL4X4 
GTUTRN 
LOCAXS * 

MAXMIN 

TMPTS 

WRTGEO 
TMPTS 
TRAVRS * 

CENTER 
INQPER 
INQGLB 
GETLIM 
ATFROM * 

M0V4X4 

GTUTRN 

MUL4X4 

PRSSTF 

TMPTS 

PRSPC 

SSHDDS 

SETCLP 

SETWND 

GETWND 

SHDCTR 

INQGLB 

GETLIM 

M0V4X4 

GTUTRN 

MUL4X4 

TMPTS 

SSHDDS 
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PRSSTF 

INTHDP 

INTLIT 

TMPTS 

INTHID 

INTLIT * 
ZSTRIN 
STRHAZ 
INQFOG 
INQBGC 
ZINQMM 

INTHLR 
ZSTRIN 
CENTER * 

INQPRT 
HRDWAR 
GETLIM 
GETWND 
SETCOL 
MOVABS 
DRWABS 
TRAVRS * 

GETCLP 
INQLAF 
RDINIT 
SETLUT 
SETSCL 
GETWND 
SETARP 
UHINIT 
SETMOD 
ERASE 
DRWBOR 
INQBGC 
SETCOL 
INQPRT 
MOVABS 
DRWABS 
TRAVRS * 

HIDSRP 

POLFIL 

INTHD2 

ZINQMM 

CLRNXT 

HIDSUR 

CLRBUF 

SEGGEN 

GLSSRT 

SORTZ 

SEGSHD 

CLENUP 

DEBSOR 

INQBGC 

PREALI 

CODNG2 
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STRPIX 
CODPSl 
STRPIX 
CODNGl 
STRPIX 
CODPS2 
STRPIX 
PREALI * 
ALIGLS 
STRPIX 
SETONE 
GLASS 
INS S EG 
GETONE 
INSSEG 
SETONE 
INTSEC 
STRPIX 
SHADOW 
ANTALI 
GLASS 
INSSEG 
PAINT 
DRWABS 
MOVABS 
HAZE 
DODITH 
SETSCN 
SETCOL 

UPDATE 

CLRBUF 

CLRNXT 

FRNBAR 
INQPRT 
INQLEV 
DODITH 
SETSCN 
SETCOL 
MOVABS 
DRWABS 
INQBGC 
DSPTXT 
GETWND 
INQPRT 
INT4X4 
GTUROZ * 
M0V4X4 
INQSCL 
GTUTRN 
INQGLB 
M0V4X4 
GTUTRN 
MUL4X4 
PAUSE * 
PIPLIN * 
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DSPTXT * 
INQFRN 
MAPINZ 
ZINQMM 
HIDLIN 
HSHNOD 
UHINIT 
UHPUT 

UHLOOK 

UHETOI 

UHLOOK 

HSHEDG 
UHINIT 
UHPUT * 
UHETOI * 
INQCNT 
GENCNT 
INQLEV 
ORDCNT 
LODCNT 
GRIDEN 
PREVEC 
SRTVEC 
SRTLEN 
PRESUR 
SRTSUR 
SRTLEN 
PROCHL 
ZINQMM 
INQCNT 
INQBGC 
INQLEV 
SETLIN 
SETCOL 
MOVABS 
DRWABS 
DSPTXT * 
SETCOL 
INQARC 
DMPVEC 
INQCNT 
INQBGC 
INQLEV 
SETLIN 
SETCOL 
MOVABS 
DRWABS 
DSPTXT * 
INQARC 
LBLELE 
CHRNUM 
DISTXT 
LBLNOD 
CHRNUM 
DISTXT 
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CNTBAR 
INQPRT 
GETWND 
INQLEV 
INQBGC 
DSPTXT * 
SETCOL 
MOVABS 
DRWABS 
INQCNT 
HRDWAR 
TXTDIS 
INQTXT 
DSPTXT * 
SETMOD 
INQPRT 
SETMOD 
DSPTXT * 

SETPRT 
ATFROM * 

DISALL * 

INQPRT 
DISALL * 

GETXT * 

GETCOM 

LCUC 

READMV 

GEOMOV 

OPNFIL * 
BNDBOX 
SETFNC 
SETSTD 
ASTSTD 
ASTFNC 
SETFNC 
GETAGR 
CHRNUM 
GETITM * 

ADDCAL 

GETITM * 
GETGRU * 
GETAGR 
HUACAL 
HUGCOP 
HUGCOl 
HUSORT 
HUSORl 
HUSSTA 
HUSSTl 
HUGSOR 
HUGSOl 
GETCOP * 
INTCAL 
INT4X4 

GETXT * 
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WRTDRV 

OPNFIL * 

GETAGR 
GETGRU * 

ACTGRP * 

DISALL * 

REDCHK 

OPNFIL * 

NEWGRP 

SETGLB 

SAVTXT 

SETPER 

SETWND 

SETPRT 

SETBGC 

SETCLP 

SETDEF 

SETBOX 

SETFNC 

ASTFNC 

ASTREF 

SETREF 

SETFOG 

ANFILS 

SETFRM 

SETSUB 

SETRAT 

SETCON 

SETTEN 

SETSPL 

STTENG 

STCONG 

STCONG 

STSPLG 

STSPLG 

STRATG 

SOPNAN 

RUNANI 

INQFRM 

ANFILI 

FNDFRM 

INQTEN 

INQCON 

INQSPL 

INQSUB 

INQRAT 

INTENG 

INCONG 

INSPLG 

INRATG 

POSFRM 

REDONE 

ANICOM 

REDGLB 

SETGLB 
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SETPER 
ATFROM * 
PERDST 
INQLAF 
INQPER 
SETWND 
SETWND 
INQDST 
INQLAF 
SETPRT 
SETBGC 
SETCLP 
SETFOG 
REDLIT 
COMGLB 
COPNUM 
COPNMl 
FRMONE 
REDONE 
RPLCOP 

COPNUM * 
HUGSOR * 
RPLCPl 
M0V4X4 
REDGLB * 
COMGLB 
MODGLB 
GTUSCL 
INT4X4 
MUL4X4 
M0V4X4 
GTUROX * 
GTUROY * 
GTUROZ * 
ANICOM 
MODFRM 
GTUTRN 
GTUROZ * 
GTUROY * 
GTUROX * 
GTUSCL * 
GTUTRN 
MOV4X4 
RPLGLB 
SETGLB 
SETBGC 
ATFROM * 
SETWND 
PERDST * 
SETPER 
SETCLP 
SETPRT 
SETFOG 
ANILIT 
M0V4X4 
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RPLCOP * 
SPLNGL 
INQFRM 
SPLINE 
MODGLB * 
COMGLB 
CTRLGL 
GLBCNM 
MODFRC 
MODGLB * 
RPLGLB * 
MODFRC 
DOSPLN 
INQFRM 
SPLINE 
MODFRM * 
ANICOM 
MODFRM * 
RPLCOP * 
FOURW * 
DISALL * 
CAMERA 
MOV4X4 
SPLNGL * 
CTRLGL * 
MODFRC 
MODGLB * 
COMGLB 
RPLGLB * 
DOSPLN * 
MODFRM * 
DOSPLN * 
MODFRM * 
ANICOM 
RPLCOP * 
FOURW * 
DISALL * 
CAMERA 
M0V4X4 
GETXT * 

WRTCHK 

OPNFIL * 

GETAGR 

INQGLB 

INQTXT 

INQPER 

GETWND 

INQPRT 

INQBGC 

GETCLP 

GETDEF 

INQBOX 

INQFNC 

ANQFNC 

ANQREF 
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INQREF 
INQFOG 
ANFILI 
INQFRM 
INQSUB 
INQRAT 
INQCON 
INQTEN 
INQSPL 
INTENG 
INCONG 
INSPLG 
INRATG 
lOPNAN 
ANIDRV 
INQFRM 
GETXT * 

BEGANI 
ANFILI 
CLRANI * 
CNUMOP 
ANFILS 
OPNANI 

GETCOP * 
ANFILI 
SETFRM 
WRTGLB 
INQGLB 
INQLAF 
INQPER 
GETWND 
INQPRT 
INQBGC 
GETCLP 
INQFOG 
WRTLIT 

ANFILS 
INQFRM 
INQSUB 
GETXT * 

GETNUM 
SETSUB 
COPNUM * 

GETCOP * 

INQRAT 

INQTEN 

INQCON 

INQSPL 

GETNUM 

SETRAT 

SETTEN 

SETCON 

SETSPL 

INRATG 

STRATG 
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INTENG 
INSPLG 
INCONG 
STRATG 
STTENG 
STCONG 
STSPLG 
INRATG 
STRATG 
RUNANI * 
SETFRM 
ANIDRV * 

GETXT * 

ACTGRP * 

DEFINE * 

ADDCAL * 

CHKNAM 
GETXT * 

GETCOP * 
DELETE 

GETCOP * 
HUDITM 

HUGSOR * 
HUDCAL 

HUSORT * 
HUSSTA * 

HUDGRP 

HUGSOR * 
HUDCAL * 

PURGE 
GETAGR 
GETITM * 

GETGRU * 

GETCOP * 

HUPITM 

HUDITM * 
HUDITM * 
HUPGRP 

HUDGRP * 
CHKNAM * 

MODIFY 

GETCOP * 

HUGSOR * 

ANFILI 

NEWANI 

OPNANI * 
EXTCOP 

GETCOP * 
HUGSOR * 
EXTCPl 
GETCOP * 
GETAGR 
TRAVIN * 
WRTONE 
MODTFM 
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1NT4X4 
GTUTRN 
GTUROZ * 
GTUROY * 
GTUROX * 
GTUSCL * 
ADDFRM 
INQFRM 

MODATT 

ADDFRM * 
CHKNAM * 

GETXT * 

GETNUM 
MODIFY * 

GETATT * 

SQUISH 
GETCOM * 

INQLIT 

INQUIR 

GETCOP * 
GETAGR 
TRAVIN * 
SHOATR 
GETXT * 
INQLIT 
GETGRU * 

GETITM * 

GETCOP * 

HUGSOR * 

GETDEF 
SETDEF 
SUMMRY 
INQLIT 
INQFRN 
INQCNT 
GETXT * 
GETWND 
GETCLP 
INQLAF 
INQPRT 
INQBGC 
GETLIM 
ANQFNC 
SQUISH 
GETXT * 

GETNUM 
SQUISH 
ANQDSD 
SQUISH 
ASTDSP 
GETXT * 

GETCOM * 

ASTSTD 

ANQREF 

ASTREF 
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INQDEV 
INQFRN 
SETFRN 
GETCOM * 
INQDSD 
SQUISH 
SETDSP 
SETFRN 
INQFNC 
SETFNC 
SETSTD 
INQREF 
SETREF 
SETSTD 
INQFOG 
GETCLP 
GLBACT 
SCALE 
INQGLB 
GTUSCL * 
SETGLB 
ROTATE 
INQGLB 
GTUROX * 
GTUROY * 
GTUROZ * 
SETGLB 
SETBGC 
SETWND 
SETPER 
PERDST * 
SETDST 
INQLAF 
ATFROM * 
PERDST * 
ATFROM * 
SETCLP 
SETPRT 
LITSRC * 
SETFOG 
ANFILI 
INQFRM 
GLBACT * 

INQDEV 
INQCNT 
SETCNT 
GETXT * 

GETCOM * 

INQDSD 

SQUISH 

SETDSP 

INQFNC 

SETFNC 

SETSTD 

INQREF 
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SETREF 
SETSTD 
SETFNC 
SETCNT 
INQBGC 
GENTXT 
INQTXT 
GETXT * 
GETCOM * 
GETNUM 
TXTINT 
SQUISH 
SETMOD 
DSPTXT * 
SAVTXT 
INQDEV 
RESET * 
INQIAF 
INQPRT 
GETWND 
GETCLP 
INQLIT 
INTSHA 
INTSHl 
PERDST * 
INQDST * 
INQPER 
PNTHLP 

OPNFIL * 
GETXT * 
GETATT * 
PNTMEN 
INQFRN 
INQCNT 
PAUSE * 
RMLEV 
TREE 
PRGRUN * 

NXTIDX 
NEXTWD 
GETXT * 
LCUC 
RMLEV 
ADLEV 
FNDIDX 
FNDCOM 
FNDIDX 
WRTCOM 
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Appendix B 

AN INTRODUCTION TO HIERARCHAL DATA STRUCTURES 


In Chapter One, Example Problems, the fifth and sixth examples refer to 
this chapter, "An Introduction to Hierarchal Data Structures." We have 
included this section because reading through it will help you understand 
the hierarchial data structures used in RGDL. 
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AN INTRODUCTION TO HIERARCHAL DATA STRUCTURES 


If you read in a geometry file into RGDL using READMV, the program will 
print a message similar to the following message: 

A COPY OF 1 HAS BEEN ADDED 

Ttiis line with a different number will be repeated for each part the 
applications program reads from the given geometry file. The message 
indicates that the hierarchical data structure is doing some default work 
for you. 

You may choose to i gnore the hierarchical data structure, but we 
— recommend you l earn how to manip ulate . 

This appendix defines three terms you need to know and explains the 

data structure , but does not give examples . You should see 
Chapter One, expecially Examples Five and Six, for examples of how 
hierarchical data structures are used within RGDL. 


Hierarchical Data Structtire Terms 

An item is a collection of polygons that all behave in 
the same way . In other words , the polygons share the 
same attributes and are transformed together. 

An item cannot be deleted from the database and 
cannot carry attributes or transformations. 


An instance is a copy of an item or a group and can be 
deleted. It carries attributes as well as 
transformations . 

At display time, the instances show up on the 
screen. 

A group is a collection of instances. A group, like an 
item, cannot be deleted from the database, and it cannot 
carry attributes or transformations. 


What Are Groups And Items ? 

Groups and items are part of a powerful hierarchical data structure 
that allows you to create and manipulate parts that may be related to one 
another . 

A simple example of how parts can be created and manipulated is the 
creation of a car model. The wheels and the car body can be defined as 
separate items , while the wheels and car body together are a group . 

Half of the car body can be modeled. This half can then be copied and 
mirrored to create an entire car body. A wheel can be created and 
replicated four times, then placed at the correct locations. 


Item: 


Instance : 
(or copy) 


Group : 
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The body and wheels can then be manipulated together as an entire car 
AU four wheels can be rotated while the car is moving by simply rotatine 
the instance containing the four wheels. ° 

Upon initialization, RGDL creates a default group called ROOT (Capital 
different from lower case letters. Thus, a group with the name 
ROOT will be different than another group with the name 'root'). When a 
geometry file is read in, a copy of each of the parts are placed under the 
current active group (default ROOT). 

Thus, if a three part geometry file were read in, the structure would 
look like Figure 1. 





INSTANCE 


» ITEM 


Figure 1. 


Because the numbers 1, 2, and 3 are not very descriptive of the 
geometry, we can change the names to improve the description. For example, 
we can rename items 1, 2, and 3 to parti, part2, and part3, and change the 
instance names to copyl, copy2 , and copy3. The structure will then look 
like Figure 2. 
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Because the numbers 1, 2, and 3 are not very descriptive of the 
geometry, we can change the names to improve the description. For example 
we can rename items 1, 2, and 3 to parti. part2. and part3, and change the’ 
instance names to copyl, copy2, and copy3. The structure will then look 
like Figure 2. 




Figure 2 


As mentioned earlier, only instances can be deleted from the data 
structure. For example, we can delete copyl and add another instance of 
part3. The resulting structure is shown in Figure 3. 



Figure 3 
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As seen in Figure 3, item parti has simply been unlinked from the data 
structure. It may be linked up at a later time under any group, or ignored. 

Another group called 'NEW GROUP' can be created. Under this group 
copies of other groups or items can be added. ’ 

The only limit is that the links can not be recursive. For example, a 
copy of 'ROOT' cannot be added under the group 'ROOT' because a circular’ 
list would be created. RGDL checks for recursive links and tells you about 
them. 


A new structure might look like Figure 4. 



The term definitions explain that only instances carry transformations 
and attributes. Transformations concatenate up the tree; thus a rotate of 
copy2 and a translate of ROOT COPY 1 would result in a scene that has two 
rotated copy2's, but only one translated copy2 (the rotate would occur 
before the translate) . 

In fact, such a scene would contain seven parts: two each of copy2, 

copy3, and copy4, and one part representing copyl. The one group of copy2, 
copy3, and copy4 would be translated. 
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Attributes such as color, shading type, and highlights are not 
concatenated. Instead they are inherited from "parent" to "child" for 
attributes not set for the child. 

For example, if the color of copy2 was set to red, and the color of 
ROOT COPY 1 was set to green, the color of copy2 will remain red. If the 
color of copy3 was not set, it would be green under ROOT COPY 1 because 
copy3 inherited this color from its "parent" . 

However, copy3 under ROOT COPY 2 will not inherit color on the way up 
the tree, but will remain with its default color. An instance that has no 
attribute after traversing the tree from bottom to top will be assigned a 
default attribute. 

To better understand hierarchical data structures, study the examples 
shown in Chapter One, especially Examples Five and Six. 
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Appendix C. 

SOFTWARE Installation 

The magnetic tape supplied with this document is in a PRIME Magsav 
format for easy installation on other PRIME systems. The magnetic tape 
contains the following files: 

HIDDEN. F7 7 
ANIMATE. F7 7 
GRUPIT.F77 
JONESD.F77 
MAIN.F77 
MOVLIB.F77 

RGDL device driver routines 

The C routines are for UNIX installations. Only one driver should be linked 
with an application. 

AED.F77 
AED.C . 

RAS110.F77 

RAS120.F77 

RASOUT.C 

T4010.F77 

T4109.F77 

T4111.F77 

T4115.F77 

T4129.F77 

RGDL include files 

ANIM.INC 
OVER. INC 
FNCT.INC 
HIDN.INC 
MOVL.INC 
MSTR.INC 
USER. INC 

Example problems 

RSPEX1.F77 
RSPEX2.F77 
RSPEX3 . F77 
RSPEX4.F77 
RSPEX5.F77 
RSPEX6 . F77 

Example problem geometry file 
EXP9 . GEO 


RGDL hidden surface routines . 

RGDL animation routines . 

RGDL groups and items outines . 

RGDL hidden line routines . 

RGDL common use routines . 

RGDL input/output library routines. 


Appendix C SOFTUARE INSTALLATION C.l 



INSTALLATION 


RGDL software is for installation on a PRIME computer. Even though the 
code is generic FORTRAN, it contains include file statements that are system 
dependent. The device drivers contain code that dumps buffers; this code is 
also system dependent. 

To instal RGDL on different operating systems, the include file 
statements in the source code must be modified to be compatible with your 
system's requirements. The code to perform system dependent buffer dvunping 
in the device driver should also be changed. 


BUGS, PROBLEMS, and COMMENTS 

We have done our best to make RGDL and its documentation accurate and 
clear. However, you may find things that need to be clarified or changed. 
If you find bugs or problems in the software or the documentation, please 
contact us. Any positive comments would also be appreciated. 

Software Manager 

Engineering Computer Graphics Lab 
Civil Engineering Department 
368 Clyde Building 
Brigham Young University 
Provo , UT 84602 

(801) 378-2812 
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